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DATE CREATED: MAY, 1980 
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JOHN ADAMS-REV A 


The information in this document is subject to change without notice 
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Corporation. Digital cone Carper ne sen assumes no responsibility 
for any errors that may appear in this manual. 


Digital Equipment Corporation assumes no responsibility for the use or 
reliability of its software on equipment that is not supplied by 
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SEQ 0002 


REVISION HISTORY 


SOSA EERE ARAEERERERAREREEEEEEEEEEEEREREEREREEAREEERERARERAKRERARARREE 


REV £0: Bm CODE TO PROVIDE FULL APT SCRIPT-MODE Se: 
Resist 8 6 +e DESCRIBED IN TEST DESCRIPTION TO PREVENT 


TENT FAILURES. 
SERFLG’ TO RELOCATION MONITOR TO PREVENTT ENDLESS 
» NOOPING THE ON OCCURENCE OF DEVICE ERROR. 
4)RAISED PRIORITY OF MBT SERVICE ROUTINE FROM 5 TO 7 TO PREVENT 
INTERMITTENT FAILURES. 


SEQ 0003 


2.1 


Pa 


2.2 


ABSTRACT 


This ram is designed to be a comprehensive check of the 
PDP=11/ cpu cluster. The program executes each instruction 
in all address modes and includes tests for traps, interrupts, 
the mapping box, onary t. memory, the Unibus, and 
the Mass Bus. If NOT DE i the program relocates the 
test code throughout memory (0-2m). Also, if SELECTED, 

the progr an wil relocate using available disks 
(RPO3, ,RPO4 .RSO03/4). See section 9.5 for a description of 
relocation. 

The main differences between revision A and revision B are 
routines to use the UBE and MBT (manufacturing only), worst 
case testing occurs with all switches down, standard SYSMAC 
macros, and floating point processor tests. 


Also, the disk driver was rewritten to make each device have a 

lar driver and to cause 1/0 to occur concurrently on the 

os nem disks. (see section 9.5.4 for a description of disk 
rivers 


PRECAUTIONS must be taken to ensure the protection of user 
ie Refer to section 7.0 for a description of warnings and 
exceptions. 


REQUIREMENTS 





Equipment 





PDP=11/70 (KB11-B/C ) Central Processor with 16K of memory, a Line 


ivalent> console 


and an LA30 (or ony . 
pT DIAGNOSTIC SUPPORTS THE PDP-11/74, AN IN-HOUSE, EXPERIMENTAL 


Optional Equipment Used 
1. Unibus Exerciser 


2. Mass Bus Tester 
3. RP11/RPO3, RK11/RKOS, RH70/RP04, RH70/RS03/RS04 
4. FP11-B, FP11-C 


Storage 


The program loads into the first 12K of memory and runs in all 
naw Nf (exclusive of the XXDP monitor if running in chain 


SEQ 0004 


2.5 


3.0 


4.2 


4.3 


Preliminary Programs 





Although this program is a test of the CPU cluster, it is 


advisable that the CPU cluster (and fioating point) 
diagnostics run first. These consist of: 


DEKBA DEKBF 
DEKBB DEKBG 
DEKBC DEMJA . 
DEKBD DEFPA 
DEKBE  DEFPB 


LOADING PROCEDURE 





Method 





The program is supplied on the diagnostic media. Refer to the 
XXDP operating manual for further information. 


STARTING PROCEDURE 


See Section 5.1 
Starting Addresses 








The starting address for the exerciser is 200. 


By starting at address 210, the switch register and display 
Lights can be checked. This routine just moves the switches 
to the display register allowing the operator to toggle the 
“i and see the corresponding Lights in the display 
register. 


> ree at address 214, the micro-break register can be 
checked. This test requires a maintenance card. See Section 
9.0 for further details. 


START AT ADDRESS 230 AS AN AID TO CUTTING THE JUMPERS FOR THE 
PROCESSOR ID REGISTER. 


Program and Operator Action 


1. Load program into memory (See Section 3) ; 

2. (Check for any system disk packs or _ configuration 
exceptions as described in section 7.0. 

3. Load address 200 

4. Set switches (See Section 5.1) 

5. Press Start 





G 1 
6. The program will loop and messages will be typed at_ the 
end "et eath sub-pass and a> i (see section 8.3 for 
a description of the messages) 


OPERATING PROCEDURE 





Operational Switch Settings 


Sw15 HALT ON ERROR This switch when set will halt 
the processor when an error is 
detected. Pressing continue 
will cause an error message to 
be typed and the processor 
will again halt. Pressing 
continue again will resume 


testing. 

SW14 LOOP ON TEST This switch when set will 
cause the erogren to loop on 
the current subtest. 

Sw13 INHIBIT ERROR This switch when set inhibits 

TYPEOUT the error typeout. 
Swi2 INHIBIT UBE This switch when set inhibits 


the initialization of the 
Unibus Exerciser. See section 
9.2 for a description of the 


function. 
Sw11 INHIBIT SUB- This switch when set inhibits 
TEST ITERATION subtest iteration after the 


first pass. Each subtest is 
executed 10 times before the 
next subtest is run. Setting 
SW11 causes each test to be 
executed once before starting 
the next subtest. 


Sw10 RING BELL This switch when set will ring 
ON ERROR the bell when an error is 
detected. 


Sw9 LOOP ON ERROR This switch when set. will 
cause the program to loop on 
the first failure even if the 
failure is intermittant. See 
section 6.1 for a descripticn 
of looping on relocation 
errors. 


Swé RELOCATE WITH This switch when set will 
DISK CAUSE RELOCATION TO BE DONE BY 

A DISK INSTEAD OF THE CPU. 
See section 9.5 _ for a 

description of relocation. 


SwW7 


SwW6 


Sw5 


SW4 


Sw3 


SW2-Sw0 


INHIBIT SYSTEM 
SIZE TYPEOUT 


INHIBIT RELOCATION 


INHIBIT ROUND 
ROBIN 


INHIBIT RANDOM 
DISK ADDRESS 


INHIBIT MBT 


DEVICE CODES 


NOTE 


H 1 


This switch when set will in- 
hibit the typeout of the 
switch definitions and the 
disks that will be used a 
relocation. (Typeout only 
occurs when the program is 
dumped) 


This switch when set will 
inhibit all relocation. Do 
not change this switch while 
the program is running. 


This switch when set will only 
relocate using the device 
selected by switches <2:0> 
rather than all available 
devices. 


This switch when set will 
cause relocation * Pe 
start at address e 
disk(s). 


This switch when set inhibits 
the initialization of the Mass 
Bus Tester. See section 

for a description of the MBT 
function. 


These switches (along’ with 
SW5) cause the program to 
relocate the test code using 
the device specified below: 


VALUE DEVICE 
RP11/rp03 
RKO5 

Not used 

Not used 
RH70/RP04 
RH70/RSO03/RS04 
Not used 

Not used 


NOUS WP © 


When relocati via a specific device, 
set in the value(SW<2:0>) to select the 
device then set switch 5. 


Unit Q of the load device is marked not 
present if program was loaded in chain 


i — 


SEQ 0007 


5.2 


5.5 


6.0 


6.1 


mode, and therefore will not be used to 
relocate. 


Display Register 


While the program is running, the low byte of the display 
register contains_ the subtest mumber and the high byte 
contains bits <14:7> of KERNEL PARO. These bits, of kernel 
parO, correspond to bits <20:13> of the physical address of 
the relocated code. When an error is detected and loop on 
error is selected, the high byte contains the error count. 


Operator Action 





When the program is loaded* and started with switch 7 on a 
zero the program will typeout the disks and unit numbers that 
will be used for relocation and then wait for the operator to 
type a character. This is to allow the operator to write 
protect any drive that is not to be used. If there are no 
devices available for relocation, operator action 1s not 


required. 


If the program is loaded via ACT11 in QV or AA or with XXDP in 
chain mode no operator action is required and all disks not 
wre papeet eae (except for the XXDP media) will be used for 
relocation. 


*Except chain mode, QV(manufacturing only). or Auto Accept 
(manufacturing only) 


ERRORS 





Error Halts and Description 





If an error is detected, the program will trap to the error 
handling routine (SERROR). If halt on error is enabled, the 
processor will halt. Pressing continue will cause an error 
message to be typed and the processor will halt again. 


There are many different types of errors. No matter which 
type occurs a minimum set of information is typed as follows: 


HHH :MM:SS 
ERRORPC PHYSC PC PSW MAINT TEST NO SUB-PASS CNT 
UUUUUU  VVVVVVVV Wl XXXXKXK «OVYYYVYY = =«0SSSSSS) =©PPPPPP 


where: 

UUUUUU = Virtual PC of the error call. 
VVVVVVVV = Physical PC of the error call. 
Wiwliwlala) = PSW at the time of the error cail. 


SEQ 0008 


6.1.1 


6.1.2 


J 
Contents of the maintenance register(17777750). 


MX KKOX = 
SSSSS8 , He punt (0 thru 5) 
5 ss coun ru 
PPPPPP = Pass count 
HHH:MM:SS Represents the elapsed run time of the program,since 


the most previous start. where: HHH = hours, = minutes, 
en SS = seconds. 


The Virtual PC is the 16 bit word that was pushed on the stack 
when the error call was made. The physical PC is calculated 
in one cf two ways: 


1. If memory management is off the contents of location 
FACTOR’ is subtracted from the Virtual PC. This 
generates the corresponding PC for the non-relocated code. 


2. If memory management is on the contents of the eppropr iate 
PAR mt shifted and added to the Virtual PC to generate a 
physical 22 bit address. In this case the virtual PC 
corresponds to the non-relocated code. 


The contents of the maintenance register will indicate what 
memory margin was being performed when the error occurred. 


on the type of error additional information is typed 
aS og in Tw be low 


Unexpected Trap to 4 


PCOFTP PHYSPC PSW CPUERR 

VVVVVV YYYYYY ZZZZ2ZZ 

VVVVVV = Virtual PC that was pushed on the stack when the 
trap occurr 


oa sical PC calculated as ace iaee above. 


YYYYYY = PSW that was pushed on the stack. 
222222 = oan of the CPU error register (17777766). 
Unexpected Trap to 114 
PCOF TP PHYSPC PSwW ERRREG ERR ADR REG 
VVVVVV YYYYYY 222222 EEEEEEEE 

V. P, and Y = are the same as described in 6.1.1. 

22222 = Contents of the memory error register (777744). 


Contents of the error address registers combined 


Z 
EEEEEEEE 
into a 22 bit address (777740 & 777742). 


SEQ 0009 


6.1.3 


6.1.4 


6.1.5 


6.1.6 


4 
Parity Error During Data Check 


This error can only occur during the data check that_ is made 
on the relocated test code before it is executed. This check 
is made : the unreilocated code with the _ relocated 
code. The source data refers to the unrelocated code and the 


destination data to the relocated code. 


SRCADR DSTADR  EADRREG MEM ERR REG 
SSSSSS DDDDDDDD EEEEEEEE ZZ2ZZ2ZZ 


SSSSSS = Virtual address of the source data. 

= Physical address of the destination data. 
EEEEEEEE = Contents of the error address registers. 
222222 = Contents of memory error register (777744). 


Error During Data Check-Reloc was by CP 


This error is similar to 6.1.3 except instead of a parit 
error, it is a data comparison error. Refer to section 9.5. 
for a description of CP relocation. 


Loop on error (SW<9>) has the following effect: 
1. Memory t Off- If switch<9> is set. looping 
will be <a on_ the section relocation (see 
section 9.5.1). If SW<9> is not set, execution will 
continue at the beginning of the next section. 


2. Memory Management On- If SW<9> is set, looping will be 

ger"grmes on the program relocation (see section 

.5.2) to the same memory space that failed. If Sw<9> 

is not set, program relocation will be retried in the 
same memory space. 


Error During Data Check-Reloc was by I/0 


This error is the same as 6.1.4 except relocation was 
performed via a disk rather than the CP. The error printout 
will identify which device and drive number transferred the 
particular word that failed. Refer to section 9.5.4 for a 
description of I/0 relocation. 


Loop on error (SW<9>) has the following effect: 

1. If SW<9> is set, the device that relocated the word 
(that caused the data check error) is initiated to do 
the same transfer with the same disk address and 
memory addresses. This transfer will continually be 
initiated and checked until SW<9> is not set. 


Device Error 
This error occurs if_a device error occurs while the device is 


on a transfer. The device and drive number are identified 
and the contents of the device registers are typed. 


= 


6.1.7 


6.1.8 


6.1.9 


6.1.10 


6.1.11 


| c..% 
When SW<9> (loop on error) is set, the device that failed is 


continually restarted with the same disk address, memory 
address, and function that caused the error. 


If SW<9> is not set. relocation is restarted. 
Unibus Exerciser Failed 


cc BUSADR CR2 CR1 PHYS BUS ADR 
MXKXKK 8 VVVVVV WwWhahalalwhal YYYYYY 222227222 
MAXKKK = Cycle count. ; 
VVWVVVV = Virtual bus address that the UBE failed at 
Awalahaha! = Control register number 2 
YYYYYY = Control register number 1 : 
222ZZZ2Z7Z = Physical memory address that the UBé failed at 


The physical auery address is calculated by adding the 
appropriate map register to the virtual bus address, forming a 
real 22 bit memory address. 


UBE Non-Existant Memory Error 

This error only occurs when the ‘NO SLAVE SYNC’’ error occurs 
in the unibus exerciser. Only the physical address that timed 
out is typed. This error might indicate that there is a hole 
in memory or that the size register (777760) is set wrong. 
Mass Bus Tester Failed 


CS1 WRDCNT BUSADR BADREX MR2 CS2 ST 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG 


ER CS3 
HHHHHH JJJJJIJ 
AAAAAA = Control and status register #1 (760100). 
BBBBBB = Word count register (760102). 
cccccc = Bus address register (760104). 
DDDDDD = Bus address extended register (760174). 
EEEEEE = Maintenance register #2 (760106). 
FFFFFF = Control and status register #2 (760110). 
GGGGGG = Status register (760112). 
HHHHHH = Error register (760114). 
JJJJJJ = Control and status register #3 (760176). 


MBT Non-Existant Memory Error 


This is the same as 6.1.7 except that it is detected by the 
NEXM bit in CS2 of the MBT. 


Floating Point Error 


This error will only occur if the left and right hand sides of 
the floating point identities do not agree within the expected 
tolerance. The value of the calculations are typed out. 


This error should only be a function of the Floating Point 
Processor and the FPP diagnostics (DEFPA DEFPB) should be used 
to isolate the problem. 


SEQ 0011 


SEQ 0012 


6.1.12 Device Hung 


This error will occur if _ a device does not finish its 
relocation function within 2 seconds after its initiation. If 
a Line clock is mt installed, a hung device will h the 
program. Refer to section §.5.4.4 to determine which device 
and drive is hung. 


6.2 Error Recovery 





Different types of errors recover in different ways as 
described below’. 


6.2.1 Errors Within Subtests 


Saget ren starts with the instruction following the error 
call. 


6.2.2 Relocation with Memory Mont. Off 
Execution starts at the beginning of the next section. 

6.2.3 Device Error or CP Relocation with Memory Mgnt. On 
Relocation is restarted. 

6.2.4 Umexpected Traps Except Parity (4,10,250) 
Execution starts at the address pointed to by location 
SLPERR’’. This location contains the addresst2 of the most 
recently executed ‘‘SCOPE’' instruction. 

6.2.5 Unexpected Parity Error 
If the parity error is fatal (Bit 2 or 3 set in error reg) the 
program types a restart message at restarts. Otherwise, 
execution starts as in 6.2.4. 


7.0 WARNINGS AND EXCEPTIONS 








7.1 Warnings 





Any drive that is not ‘write protected’ will be written on 
(except unit 0 of the XXDP load device in chain mode). 


When the program is dumped (see section 5.3) and SwW</7> is set, 
the devices and drives that are not write protected will be 
identified on the terminal. Before typing a character to 
continue, a drive can be write protected without causing an 
error because, the system is sized again. 





7.2 


8.0 


8.1 


8.2 


8.3 


Exceptions 





If any of the devices is located at a non-standard address 
(see below), the device register address tables (in common 
tags’) should be changed to the correct addresses. Fullowi 
is A. . arenas address of the control and status register o 
eac vice: 


35~—=—176714 
RKOS———=4 +06 


----1 


RSO03/4--172040 


If the system has both an RPO3 and an RPO4, the branch 
instruction at 100$, in the ‘’size routine’’ must be replaced by 
a nop (240) for both devices. to be used. This branch is 
approximately at address 4552. 


MISCELLANEOUS 





Execution Time 





The execution time is t on the amount of memory on the 
system. Following are two typical run times: 


1. Manufacturing Basic Line-32K memory,UBE, MBT, and no 
disks---3 minutes. 

2. System-128K memory, 2 RKO5's, RPO4, and 2 RS04's 
---9 minutes. 


Stack Pointer 





The stack pointer is set to 700. 


NOTE 


When the program is running in either 
user or supervisor mode, the 
ge ge? ae Stack pointer is set to 
00 the Kernel stack pointer is set 
to 1200. The Kernel stack pointer is 
used only for the Error and Interrupt 
Service routines. routines. 





Pass Count 


There are two words used for effective pass count. Location 
SUBPASS'' and  ‘‘SPASS"’. Subpass contains the ASCII 
representation of the subpass count. This is used to index 
the PSW table and margin table (see section 8.7). 


Six subpasses are executed for each pass. This allows all 
roe and PSW combinations to be tested before reporting end 
of pass. 


SEQ 0015 


8.4 


8.5 


8.6 


8.7 


8.9 


8 
sta ted) 4 . fol ne, nore QUICK BROUN FOX J wien ove 
: ar 5 
BBE 01 ieee: If wate on ACT11 QV or AA, 
LA She mumber is typed he end of each pass 
and the message “END PASS X TOTAL E 


the elapsed run re. 2 
SINCE LAST REPORT Y" is typed. 
Iterations 








ne sest iterations are not performed until the pass count 
($PASS) is non-zero. This makes a QV pass as short as 


possible. 


After the first pass, full 10 octal iterations are performed 
on each subtest. 


T-Bit Trapping 





T bit trapping is controlled by the PSW table. The default 
coneit ren is to run with the T-Bit on during subpasses 2, 4, 


ACT=11 Compatability 








The program is fully ACT-11 compatable. 
PSW and Margin Tables 





- a end of the ere. just before the messages, are the 
margin tables. These tables control what mode and 
a = set ond which memory margin will be executed on a 
ss Refer to section 9.5.2 for a description of how 
hese tables are used by the program. These tables may be 

hw B if desired. 


1/0 Device Address Modification 





To modify the program address of the I/0 devices patch the 
appropriate device table (in the common tags area) to the 
desired addresses. 


If you are patching the RPO3 or RPO4 see section 7.2. 


If a or fail occurs (followed by a power up), the word 
Power’? § is typed on the terminal and the program restarts. 


SEQ 0014 


9.0 


PROGRAM DESCRIPTION 





The program is divided into 9 sections of position independent 
relocatable test code. Each section is approximately 1K words 


the program is initially loaded and started it will 
i f and type the function of the switch register 
ins oo and drives that will be used for relocation, 


if t will also type the CP options available 
indicator word (OPT.CP). The contents of OPT.CP contain the 
following indicators: 

Bit15 = Not used 

Bits = Not used 

Bitl3=1/0 = FPP available/not available 

Bittle . Not used 

Bitl = Not used ; 

Biti0=1/0 = MBT available/not available 

BitO9=1/0 = KWl1I-L available/not available 

Bi t08=1 > Console tty available/not available 
Bit07=1/0 = UBE available/not available 

Bits = Not used 


Following is a brief description of each section: 


Section 0 This section causes a 256 word 3 Xor 9 test 
pattern to be relocated throughout memory 0 - 28K. 


NOTE: This should not be construed to be a 
compiete memory test. 


Section 1 This section tests the unary instruction set 
executing each unary instruction in each address 
mode sort lusing unary instructions using address 


Section 2. This section tests the unary instructions using 
address mode 7 and binaries in all address modes 
(excluding binary byte ops using address mode 7). 


Section 3 This section tests binary byte ops using address 
mode /, JMP, and program trap (IOT, TRAP, and 
EMT) instruction. . 


Section 4 This section checks that each bit in the processor 
status word (PSW) can be set cleared, reserved 
instructions, and odd address traps. 


Section 5 This section checks the SXT, XOR, SOB, MARK, RIT 
and RTT instructions. 


Section 6 This section checks the ASH, ASHC, MUL, DIV, SPL 
instructions and the program interrupt request 
(PIRQ) logic. 


SEQ 0015 


9.1 


9.2 


D2 


Section 7 This section checks the stack Limit register 
memory management abort oEss the memory 
management registers, and he maping box 
registers. 


Section 8 This section checks the floating point option, 
(FP11-8 or FP11-C) if available. 


ro am section 8 are two routines to check the tetgtype 
printer logic and a routine to start the KWIll-L clock. If t 
KW1ll-_ is available the priority arbitration logic is tested. 


Micro~Break Test 





The micro~break test is used to test the micro break 
comparators and the stop on micro match function of the 
maintenance card. To run this test the rator must have a 
actin, card installed and start the program at address 


The proeres asks the pereter to turn on the stop on micro 
match switch. It ¢t checks certain bit patterns in the 
micro break register to ensure the processor does not stop 
when it is not supposed to. 


The processor will then stop with zero in the micro address 
Lights. The operator then hits continue, and the processor 
will stop with one (1) in the Lights. This sequence continues 
with 2, 4, 10, 20, 40, and 200 appearing in the lights. The 
program types done when it is finished. 


Unibus Exerciser (UBE) 





Any one of 4 UBE's will be used. The program looks for a UBE 
at addresses 17770004, 17770024, 17770034, and 17770044. 


Test 77 will initiate the unibus exerciser if it is present. 
This is only done on pass 1 - subpass 1, since from that point 
on, the service routine takes care of restarting it. 


The UBE is Set up with a bus address of 0. _ The 
function that is loaded is ‘DATA IN PAUSE-DATA OUT BYTE'’. The 


word count is set for ABOUT 1.3K WORDS. It is also set to interrupt 


on level 5. 


When an interrupt occurs a check is made to see if it was 
caused by anerror. If there was no error, 0 is loaded as 
the bus address and the UBE is started again. 


When an error occurs a check is made to see if it was caused 
by a memory timeout. If it was, the address in the UBE bus 
address register is compared with the address in the system 
size registers. If they are the same (no holes in memory) the 
UBE is restarted at address 0 and the above sequence is 
repeated. If the addresses are not the same a memory-hole 
error 1s reported. 


SEQ 0016 


9.5 


9.4 


9.5 


F301 


E 
If the error was not due to a timeout a UBE error is reported. 
Mass Bus lester (MBT) 


Any one of 4 MBT’s will be . The am looks for an MBIT 
at. addresses 17770100, 17770200, 17770300 17770400. If 
an MB’ is found, the drive type register (17770X26) is checked 
to make sure that it really is an PBT. 


Test 77 also initiates the mass bus tester. Again, this is 
only on Pass 1 - subpass 1 since the service routine 
keeps it running. 


The bus address register is initially set to 0, the word count 
to 2K words, and a read function is initiated. 





When an interrupt occurs an error check is made. This error 
check is the same as that described for the UBE. If there was 
no error, the word count is reloaded and the function is 
issued. The bus address rugreter is not changed so it will 
continue from where it left off. 


Line Clock Initialization 


Test 76 turns on the Line clock. Two locations in ‘common 
tags'' keep track of the elapsed run time of the program. When 
the clock interrupts, the low byte of location ‘‘lticks’‘is 
incremented. When this byte gets tc 60(decimal) it is cleared 
and the high byte is incremented(seconds). When the second 
count gets to 60(decimal) location ‘mticks'' is incremented 

lticks is cleared. This gives the timer a 64K decimal minute 


range o 
NOTE 


For the UBE , MBT. and Line Clock, when 
an interrupt occurs, program execution 
returns to Kernel mode the Kernel 
PAR's are mapped down to the 0-12K bank 
of memory. Upon returning from the 
interrupt the PAR’s are mapped back to 
where they were and the previous 
processor mode is restored. 


Relocation Algorithm 


Section Relocation 


As each section is entered the virtual start address is saved 
in location STAD’' and the relocation factor (byte offset 
from non-relocated code) is calculated and saved in location 
FACTOR’. The test code is then executed. 


SEQ 0017 


9.5.2 


F 
At the end of each section, control is transfered to the 
‘relocation routine’. If Sw<8> is CLEAR, this routine will 
relocate the section via the CP (see 9.5.5). If Sw<8> is 
set, the length of the section is calculated, saved as a word 
count, and control is transfered to the ‘1/0 monitor (see 
section 9.5.4) which relocates the section by using a disk. 


Each section is initially relocated to the end address of the 
program. t relocations start at the end of the 
previous relocation. for example: if section 0 is 1000 bytes 
long and the end address of the program is 60000, the first 
relocation starts at address 60000, the second at 61000, the 
third at 62000, etc. This continues until 28K has been 
reached at which time execution goes to the start of the next 
section and the process repeats with the new section. 


Each section is written in position ye mole ge code so that 
it can be relocated and executed without the use of memory 
management . 


Program Relocation 


at wis qectings fae been retec ened ane sonpunes li 
see section 9.5.1), memor is setup accordi 
to the value in location “NEXPAR'". This value is initialized 

to 600 (or 1600 if running under the XXDP monitor), maki 
relocation start at address 60000 (or 160000). The “"I/ 
monitor’’ is then entered (see section 9.5.4) to relocate the 
program. When the 1/0 monitor completes the relocation, 
execution is transfered to the start of the program at the 
relocated position. 


Each section is executed only once with memory manpgenen:. on. 
At the end of section 8, 77 is added to ‘NEXPAR’’ and 
relocation is performed again. This causes the next 
relocation to move up by 7700 bytes. For example: If 
nexpar=1600 the first relocation starts at address 1 . the 
second at address 167700, the third at 177600, etc. 


This continues until the end of memory is reached and 
constitutes a sub-pass. The PSW and maintenance register (for 
memory margins) are then setup for the next sub-pass and the 
program restarts. 


The value for the PSW and maintenance registers is taken from 


the tables (see section 8.7). The particular entry that is 
used is obtained by indexing the table by the sub-pass number 
(see section 8.3). For example, sub-pass 3 uses word 5 (the 
first word is counted as zero) of each table. Therefore. to 
ch the value in the PSW or maintenance register only 
requires changing the value in the appropriate table. 


The completion of 6 sub-passes constitutes a pass and an end 
of pass message is typed. The program then restarts in pass 
2, sub-pass 0. 


— tee; ~ 


G 2 
.5.5 Relocation VIA CP 


If Sw<8> is CLEAR, both section and program relocation (see 
sections 9.5.1 and 9.5.2), are performed by an instruction 
move loop rather than a disk. For example: 


1$: MOV (RO)+,(R2)+ 
CMP RO,R3 


SEQ 0019 


where RO is the address of the code bei moved, R2 is_ the 
address that it is be*ng moved to, and R35 is the last address 
that is to be moved. 


when this is finished, the relocated data is checked by an 
instruction compare loop to ensure that the relocation was 
performed correctly. 


9.5.4 Relocation VIA 1/0 


If SW<8> is set. both section and program relocation (see 
section 9.5.1 and 9.5.2). are performed by writi the data to 
a disk and reading it back to the relocated position. This 
relocation is controlled by the *‘I/0 Monitor’’. 


9.5.4.1 Section Relocation 


when the 1/0 magtter is entered from the ‘‘relocation routine’ 
(see section 9.5.1) a device is selected (see 9.5.4.5), the 
memory addresses ( 1a and to) and word count are ssed to 
the havlee handler (see section 9.5.4.4), and the handler is 
called. When the handler finishes, the 1/0 monitor checks the 
relocated data with an instruction compare | to ensure the 
relocated data is correct. and returns to t ‘relocation 
routine’’ (see 9.5.1). 


9.5.4.2 Program Relocation 


When the ie te gg is entered for program relocation (see 
section 5. base address for the relocation a. 
pre A from the contents of kernel par3 which was set 

with memory management (see 9.5.2). If Sw<8 _ is CLEAR, 
relocation iz performed VIA the CP (see section 9.5.3). 


If SWw<8> is set. a device is selected (see 9.5.4.3), the 
word count is set to 2K, and the memory addresses (from and 
to) and word count are passed. to the device handler (see 
9.5.4.4), and the handler is called. The I/0 monitor then 
adds 2K to the memory addresses, selects another device, 
sses the addresses to the device handler, and calls the 
andler. This continues until all 12K has been relocated. 
The relocated data is then checked with an instruction pospere 
Loop. The relocated program is then executed as described 


H 2 


9.5.4.3 Device Selection 


9.5.4.4 


If Sw<5> is not set. an index is picked up from location 
“DEVINDX’’. This index is used to index the system size table. 
The system size table consists of 8 words (one for each device 
type). Bits <7:0> of each word are used to indicate the drive 
numbers that are available on the device, and are initialized 
in the size routine. Bits <15:8> of each word are used to 
indicate whether the drive has been used for a data transfer 
(unit used bit). 


The Syptes size table is then searched, using the index 
bed above, for a drive that has not been used. When a 

drive is found, the ‘unit used bit’’ is set, the current index 
Ss put back in location DEVINDX, and execution continues as 
described in 9.5.4.1 or 9.5.4.2. 


If an unused unit is not found, all the ‘unit used’ bits are 
cleared and the search is restarted. If the search finds the 
system size table onety (no devices on the system), the 
go "NO 1/0 DEVICES'* is typed and relocation is performed 
via the CP as described in 9.5.5. 


If Sw<5> is set, SW's<2:0> are used to index the system size 
table. In this case jonty one word of the table is used 
corresponding to the device being selected by SwW's<2:0> (see 
section 5.1). In this mode, a _r robin selection is 
performed on the drives of the selected device. 


Device Handlers 


Each device that is used for relocation has a handler. These 
handlers are functionally the same. 


The handler is called by the I/O Monitor (see section 9.5.4). 
It first clears the done bit (bit 7) in the handler status 
word. This prevents the monitor from calling this handler 
again before it is finished. 


If a ‘device hung’’ error (see section 6.1.12) is detected, the 
handler status words can_be examined to determine which device 
did not finish (set bit 7). The drive can then be determined 
by looking in the ‘device handler unit number"’ table. The 
handler status words and device handier unit number tables, 


are located in the ‘‘common tags‘’ area of the Listing. 


Then the handler calculates a disk address. This address is 
either rated from ar number (SW4=0) or is set to 
zero (SW4=1). The device ID, unit mumber, and cylinder 
address are combined and placed in the “RUN TABLE’? (RUNTBL) . 
The position in the run table corresponds to which 2k block of 
the program is being transfered (i.e. the first 2K block is 
identified by word 1, the second 2K by word 2, etc.). The bit 
configuration of each word in the run table is as follows: 





SEQ 0020 


~d 


9.5.4.5 


'<9> = not used 
<8:0> = fe Address 


The Ss yaar address of the transfer is saved in the ‘RUN 
TRACK (RUNTRAK). The position in this table is as 
ya ng la The bit configuration of each word is_ the 
same as that the disk address register for the particular 
device. Bit 15 is used to indicate a device error. It is set 
by the device service routine.(see section 9.5.4.5) 


The handler then initializes the device registers with all the 
appropriate information and starts a write function. 

Execution then returns to the 1/0 fontter at the point where 
the handler was called. 


Device Service Routines 


Each device that is used for relocation has a service routine. 
These routines are all functionally the same. 


The routine is entered by a device interrupt. The device is 

snognes for any errors. If mo error occurred the device 

~ecere are loaded and the next function to perform is 

— jated. Three functions are executed: arte write Check, 

Read. All the necessary bus address information is 

rp Be yo by the I/0 Monitor, so the service routine just 
takes care of the device. 


When the read function has been completed successfully, the 
done bit (bit 7) in the handler status word is set. 


Upon initiation of a function, or completion of ali three 
functions, the service routine returns execution to where it 
was when it was interrupted. 


If an error is detected, the function that failed is retried 

—_ more times. If the error is still present the done bit 

and the error bit (bit 15) is set in the re corms» status word 

oe ws with bit 15, in the appropriate entry, in the RUN TRACK 
and the routine exits as described a ove. 
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CHECK BINARY BYTE OPS USING ADDRESS MODE 6 
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133 CHECK BINARY BYTE OPS USING ADDRESS MODE 7 
! ¢ HECK JUMP INSTRUCTIONS 

T 

137 

140 
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START OF SECT 

by CHECK THAT ALL RESERVED INSTRUCTIONS T 

14 CHECK THAT ALL BITS IN THE PSW CAN BE ST AND CLEARED 
144 CHECK THAT ALL BITS IN THE CURRENT STACK PTR CAN BE SET CLEARED 
145 HECK THAT ‘C* BIT ee en cet PROPERLY 
146 CHE CK — INSTRUCTION SET 

START OF SECTION 

147 TES 

T50 CHECK THE MARK INSTRUCTION 

151 RTT/RTI_ TEST 

136 SECOND RTT TEST 

T5 CHECK ASH, ASHC, MUL, AND DIV INSTRUCTIONS 
START OF SECTION 6 
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T PAR TEST 
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171 MAPPING REGISTER TESTS . 

172 FLOATING POINT TEST 1 

START OF SECTION 8 

173 FLOATING POINT TEST 2 

FLOATING POINT MULTIPLY ROUTINE 


FLOATING POINT 
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-TITLE CEQKC-E PDP 11/70 CPU EXERCISER 
:*COPYRIGHT (C) 1975, 1980 

:*DIGITAL EQUIPMENT CORP. 
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“PROGRAM BY DONALD W. MONROE 
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| 
CEQKCE .P11 12-MAR-80 11:2 SEQ 0026 


5350 
232) 
2328 
% 
; 55 
8 
18 
44: .SBTTL OPERATIONAL SWITCH SETTINGS 
** ‘ 
(1) :* SWITCH USE 
(1) :* ned werner ene 
(1) ;* 15 HALT 
(1) :* 14 LOOP ON TEST . 
(1) 3¢ 13 INHIBIT ERROR TYPEOUTS 
(1) :* 12 INHIBIT UBE 
(1) :* 11 INHIBIT ITERATIONS 
(1) :* 10 BELL ON ERROR 
(1) :* G LOOP RROR 
(1) ;* 8 ALLOW RELOCATION VIA I/0 DEVICE 
5361 :* 7 INHIBIT SYSTEM SIZE TYPEOUT 
(1) :* 6 INHIBIT RELOCATION 
(1) :* 5 INHIBIT ROUND ROBIN 
5362 3* 4 INHIBIT RANDOM DISK ADDRESS 
(1) i* 3 INHIBIT MBT 
(1) :* 2 THESE THREE SWITCHES 
5363 ;* T ARE ENCODED TO SELECT RELOCATION 
(1) 3* 0 ON THE FOLLOWING DEVICES: 
2 :* 0...RP11/RPO3 ’ 
5 7* 1..-RK11/RKOS 
5 :* 2..-NOT USED 
5 ;* 3..-NOT USED 
:* 4...RH70/RPO4 
9 i* 5... -RH70/RS04 
0 ;* 6...NOT USE 
5371 :* 7..eNOT USED 


B 3 
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CEQKCE.P11 12 TIONAL SWITCK SETTINGS SEQ 0027 
$373 
(1) .SBTTL BASIC DEFINITIONS 
(1) ;*INITIAL_ADDRESS OF THE STACK POINTER *** 1200 s** 
(1) 001 STACK= 1200 =FIRST ADDRESS OF THE STACK 
(1) 001 KERSTK= STACK «KERNEL STACK 
(1) 000 SUPSTK= STACK-300 :: SUPERVISOR STACK 
(1) USESTK= STACK-400 > USER STACK 
61) -EQUIV EMT, ERROR * BASIC DEFINITION OF ERROR CALL 
(1) -EQUIV IOT SCOPE > :BASIC DEFINITION OF SCOPE CALL 
(1) 177776 PS= 177776 -:PROCESSOR STATUS WORD 
(1) .EQUIV PS,PSW 
(1) 177774 STKLMT= 177776 ;3STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 *PROGRAM INTERRUPT REQUEST REGISTER 
(1) 5 SWR= 177570 >: SWITCH REGISTER 
177570 DISPLAY=SWR 
(1) ; *MISCELLANEOUS DEF INI TIONS 
(1) 000011 HT= 11 ODE FOR HORI ZONTAL TAB 
(1) 000012 LF= 12 $3 CODE LINE FEED 
(1) 000015 CR= 15 =CODE CARRIAGE RETURN 
1) 000200 CRLF= 200 *:CODE FOR CARRIAGE RETURN-LINE FEED 
(1) ;*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) RO= 20 RAL 
(1) 000001 Ri= %1 
(1) 00000 R2= 
(1) 00000 R3= % 
(1) R4= 14 
(1) 000005 R5= 15 
(1) 000007 R7= %7 
(1) .EQUIV RO.R10 
(1) -EQUIV R1,R11 
(1) .EQUIV Re Rie 
(1) -EQUIV R3,R1 
(1) -EQUIV R4,R14 
(1) -EQUIV R5,R15 < GENERAL REGISTER 
(1) 000006 - 
(1) .EQUIV SP,KSP ;:KERNEL STACK POINTER 
(1) .EQUIV SP.SSP = SUPERVISOR STACK POINTER 
(1) QUIV SP,USP * CUSER STACK POINTER 
(1) 000007 PC=%7 
(1) *PRIORITY LEVEL DEFINITIONS 
(1) 000000 0 : :PRIORITY LEVEL 0 
(1) PRi= 40 > =PRIORITY LEVEL 1 
(1) 000100 PR2= 100 > :PRIORITY LEVEL g 
(1) 000140 PR3= 140 > PRIORITY LEVEL 
(1) 000 PR4= 200 : :PRIORITY LEVEL 4 
(1) 40 PRS= 260 : PRIORITY L 5 
(1) 000 PR6= 300 >:PRIORITY LEVEL 6 
(1) 000340 PR7= 340 >=PRIORITY LEVEL 7 
(1) :*" SWITCH REGISTER’’ SWI1CH DEFINITIONS 
(1) 100000 Sw15= 100000 
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(1) 04 SwW14= 40000 

(1) Swi3= 20000 

a) 1 Swi2= 10000 

1) Swil= 4000 

1) SWwi0= 2000 

1) SwO9= 1000 

1) SwO8= 400 

} 000100 suo6= 100 

(1) 000040 SwOS= 40 

1) 000020 SwO04= 20 

1) 00010 SwO3= 10 

(1) 000004 SWO2= 4 

1) 000002 SwOl= 2 

4) 000001 SwOO= 1 

(1) “EQUIV SWO9,SW9 

1) "EQUIV SwO8.SW8 

a) “EQUIV SWO7.SW? 

1) “EQUIV SWO06.SW6 

a) “EQUIV SWOS. 

1) “EQUIV $WO04.S 

1) “EQUIV SWO3.SW3 

(1) “EQUIV SWO2.SW2 

(1) -EQUIV SWO1,SW1 

) “EQUIV SWO0; 

(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 

(1) 040000 BIT14= 40000 

1) 020000 BIT13= 

(1) 010000 BITI2= 10000 

(1) 004000 BIT11= 4000 

(1) 062000 BIT10= 2000 

(1) 001000 BITO9= 1000 

(1) 000400 BITO8= 400 

(1) 200 BITO7= 200 

(1) 000100 BITO6= 100 

(1) 000040 BITOS= 40 

(1) 000020 BITO4= 20 

1) 000010 BITO3= 10 

(1) BITO2= 4 

1) 000002 BITOI= 2 

(1) 000001 BITOO= 1 

a) EQUIV BITO9.BI1T9 

1) “EQUIV BITO8.BIT 

(1) “EQUIV B1T07-BI1T7 

(1) “EQUIV BIT06.BIT 

(1) EQUIV BITO5.BIT5 

(1) “EQUIV BITO4. 

(1) “EQUIV 81T03.B1T3 

(1) “EQUIV BITO2.BIT2 

1) “EQUIV 81T01.BIT1 

(1) “EQUIV B1T00.BITO 

(1) :*BASIC “'CPU'’ TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 7: TIME OUT AND OTHER ERRORS 


4 
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SEQ 0029 
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mmr 
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000010 RESVEC= 10 :/RESERVED AND ILLEGAL INSTRUCTIONS 
14 TBITVEC=14 rT BIT 
14 TRIVEC= 14 ;;TRACE TRAP 
14 BPTVEC= 14 BREAKPOINT TRAP (BPT) 
IOTVEC= 20 :INPUT/OUTPUT TRAP (IOT) **SCOPE** 
4 PURVEC= 26 : POWER FAIL 
EMTVEC= :SEMULATOR TRAP (EMT) **ERROR®* 
0000 TRAPVEC=34 3 ‘TRAP’* TRAP 
000060 TKVEC= 60 TTY KEYBOARD VECTOR 
000064 TPVEC= 64 TTY PRINTER VECTOR 
000114 CACHVEC=114 CACHE ERROR INTERRUPT VECTOR 
90024 PIRQVEC=240 ; 3PROGRAM INTERRUPT REQUEST VECTOR 
000250 MMVEC= 250 MEMORY MANAGEMENT VECTOR 
.SBTTL CACHE REGISTER DEFINITIONS 
177740 LOADRS = 177740 ;;LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
177742 HIADRS = 177742 ;;UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
744 MEMERR = 177744 ::CACHE ERROR REGISTER 
177746 CONTRL = 177746 33 Y CONTROL REGISTE 
177750 MAINT = 177750 MEMORY MAINTENENCE REGISTER 
177752 HITMIS = 177752 [HIT MISS REGISTER ‘‘I’’ IMPLIES HIT IN CACHE 
.SBTTL CPU REGISTER DEFINITIONS 
177760 SIZELO = 177760 ;:MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
310 GET TO THE LAST 32 WORDS OF MEMORY 
177762 SIZEHI = 177762 : HIGH SIZE REGISTER. RESERVED FOR FUTURE USE 
177764 SYSTID = 177764 : SYSTEM ID REGISTER 
177766 CPUERR = 177766 CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
SETHE TRAP TO ERRVEC (000004) 
.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
177572 MMRO= 177572 
177574 MMRI= 177574 
177576 MMR2= 177576 
172516 MMR3= 172516 
-EQUIV MRO, SRO 


;*USER ‘‘I'' PAGE DESCRIPTOR REGISTERS 
177600 UIPDRO= 177600 
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172222 


net MACY11 30A(1052) 12-MAR-80 11: 
MEMORY MANAGEMENT DEF INITIONS 


UDPDR6= 
UDPDR7= 177636 


;*USER ‘‘I"* PAGE ADDRESS REGISTERS 


UIPARO= 177640 


UiPAR6= 177654 
UIPAR7= 177656 


7;*USER ‘D'' PAGE ADDRESS REGISTERS 


UDPARO= 177660 
177 


SIPDRS5= 17 

SIPDR4= 172210 
SIPDR5= 172212 
SIPDR6= 172214 
SIPDR7= 172216 


; *SUPERVISOR ‘D** PAGE DESCRIPTOR REGISTERS 


SDPDRO= 172220 
SDPDR1= 172222 
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rondnonynsnonsns 


™N 
Nm 
™ 
3 


ead and uf and end and and and 
fononon 
SSER 


NN NN NNN 


BRITT TS 
SE88 


~ 4 4 3 
SN NNW NN NN 
—ad aad anh od 


OLMNO 


“NNN NN NN 


PONSNIMIAINIFIND 
WINN 
EVSR 


mm 
ee ee ee ee ee 


ll el eel ll ee me ee ee ml el el ee ee ee od ee ee ed od at ot ot ot st et st ow es s s > ir 
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SDPDR2= 1768 
SDPDR 5= i 
SDPDR4= 1 


SDPDRG= | 172232 


7 *SUPERVISOR ‘‘I'' PAGE ADDRESS REGISTERS 
SIPARO= 172240 


SIP 
SIPAR7= 172256 
;*SUPERVISOR *D'* PAGE ADDRESS REGISTERS 


SDP 72260 
SDPAR1= 172262 
SDPAR2= 172264 
SDPAR3= 172 
SDPAR4= 172270 
SDPARS= 172272 
SDPAR6= 172274 
SDPAR7= 172276 
:*KERNEL ‘‘I'' PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172 
KIPDR3= 172. 
KIPDR4= 172310 
KIPDRS= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
7 *KERNEL ‘'D’’ PAGE DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPDR1= 172322 
KDPDR2= 172324 
KDPDR3= 163 6 
KDPDR4= 1723 
KDPDRS= 172332 
KDPDR6= 172334 
KDPDR7= 172336 


;*KERNEL “‘I'' PAGE ADDRESS REGISTERS 


KIPARO= 172340 
KIPARI= 172342 
KIPAR2= 172344 





3 
PAGE 47-7 


MEMORY MANAGEMENT DEF INI TIONS 
5 
5 
5 
5 


G 


11:30 


12-MAR-80 
>*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED "MAPLXX’ 


;*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXX" 


7 *KERNEL “D'* PAGE ADDRESS REGISTERS 
.SBTTL UNIBUS MAP REGISTER DEFINITIONS 


o 
a eee Sissons SRNL ARNSASYS SRUAESIS SE 
AYA alsa) MMMM reyol~l~) DOSOSOSSOOSOSSSOSSSSOSSOOSO 
RRRRR > RRRRRRRR a 
5 yey tion HB ENRE HHH 
Se aeees & gaeeeees SSanvoanssnnsernoon— wm sso 
ze SSS85 ¥ §83988888 2 gegeaes g85 gegesisigisisis 
—— oe Oe 
S ad be Me a wuMMMMMM oe 
~~ 
, 
> 
ww 
= 
a 
as 
ON 
=~ 
2 *s 
an 
GG 
x 


$ANER  Bysgerwe ELON ORV LAS BOYS PRNELSYS BO 
cee | Sees SRS ASAAN NN NSN NN SSEENNNUREESS 


RRR AR wR RRA 
Ld, Sel cel el eel a FCCC SC CO Ce eK el el ee ce el ol el el el ee ee a oe el ee 


ta at Ee ee ee ee ee ee ee ee a ee ee a a ee a ee ee ae a ce, en ae ee ee, ee, ee, ee a, a ee a, a ee ee 
NN ee ee ea ee a a a ee ee ee a a a ae ea ee ee ee ee ee ee ee ae ee ee ae ae ae ee ee ee ee ee ee 
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UNIBUS MAP REGISTER DEFINITIONS 


12-MAR~-80 11: 


stat MM <r le 


shits ey: 


NUN OO 


RE RSSSSONS SRSA LANG YF SORZASIS SERS SS 
SSSEERSBSEERS SSE ED OBBEE SEES SS RODS ne cesise 


$33 
Esdueaesssssessscausssesasssae isis sdecesssscccessss 





RRRRRRRRRRRRRRRRARARARRRRRARRARRARARARR 


WE RER CSO PE ASS : 


oe tating gig attend Ct a ci Ot Ot ee ee ~~~ 
i i di a i a a i A ME A RR I Ee a SO Oy i A OA hn Ie iy A REN a a a * | 
vw 


mm 
on 


Ww 
WSS Ry 


ARUN O SO 


PUPP PVP PIPIPIA AAAI 


SESSyeesaseS 


5409 


wl ml ee ee ee eed etd ed aod = 
OO NOUS WO 


KEFLEFELELELLEELELELE 


SISVRARASLS 


+ ard CPU EXERC 
12 ~80 11:2 


Bee 


WANNA 
EET 


Sx 
aS 
—_— — 23 —2 
Oofo 


ss ns Ss ss 3 
SSSSSSSSSSSSS 
Nem eR RP Rm nmr ws Ss Ore SS Oe es ee 
RORRRSARVORRVS 


SER MACY11 30A(1052) 
UNIBUS MAP REGISTER DEFINITIONS 


; UNIBUS 


3 
12-MAR-80 11:50 | BAGE 47-9 


PLKVEC=104 


LKS=177546 
LKVEC=100 


EXERCISER REGISTER 
UBEDB= ;DATA BUFFER 
sCYCLE COUNT 


;BUS ADDRESS 
;CRONTROL REGISTER 1 
70010 Ze CLEAR 

70014 ;MULTI-EXERCISER GO 
70016 :CONTROL REGISTER 2 
10 ; INTERRUPT VECTOR 


“4 
oD 
it 
en ce ed ee weed eed eed aed ed ed 2) — 


Tt] 
~ 
LS 


;MISCELLANEOUS BIT ASSIGNMENTS (USED IN OPT.CP) 
KTOPT= 100000 


jo Af sesinmpes we ec 
FPOPT= 850000 A BIT FOR EACH OPTION PRESENT 
71174 CIS OPTION PRESENT BIT 


“EQUIV BIT11,REG 
CALLHANDL ER=10 
KM=0 


SEQ 0034 


e RR 


FFELELEXE 


Bas 


J 3 
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12 1:27 UNI BUS 


“MAR~ MAP REGISTER DEFINITIONS SEQ 0035 
14 Um=140000 
0 PUM= 
1 UBREAK=177770 
;OPCODES USED IN 1174 CISP TESTS 
076020 L2D0= 076020 ;LOAD 2 DESCRIPTORS @aRO OPCODE 
076061 L3D1= 076061 ;LOAD 3 DESCRIPTORS @R1 OPCODE 
076601 MED74C= 076601 :CISP DIAGNOSTIC ENTRY OPCODE 
006600 CISTST= 6600 ;ADDRESS OF A U=DIAGNOSTIC INSTRUCTION 
000007 MFPT=7 :OPCODE FOR MFPT INSTRUCTION USED FOR 1174 ONLY 


SSS SS: 


REEFS ELES 
QEBRUNLS 


SSSROREREROS SE 


FFEEEESELEE 
SS BBNSAR AN 


Sabeene 





076155 


8011:27 


ER MACY11 wate ot 


12-MAR-80_ 11 
S OPCODE DEFINITIONS 


-SBTTL CIS OPCODE DEFINITIONS 


=076155 


K 3 
7:30 PAGE 47-11 


SEQ 0036 


CEQKC~E PDP 
CEQKCE .P 


= 


Ceeeeperees 


ee me ee eB ee ed ed ed eed oe oe od od 
OO NOUS Wwe we eww www OO 


NNIILIVS25 AAA NAN 


MIVIMIMMAMMAMIVIUIVIW 
Nm 


ROO CR PROP PRL Pn Pn nO OO nO me Oe tm NAN 
ee ed ed ed ed ed od ot ot I os I ALA) 
ee ee ee a ee ee ee ee eee ee ee ee ee PI) 


PDP 11 
pri 


000044 


470 € 
12-MAR~ 


a ey RC Ss 


7 0036 
7 0026 


SER MACY11 ate o 
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S OPCODE DEFINITIONS 


ASHN] 76156 
CVTLNI =076157 
ADDPI =076170 
SUBPI =076171 
CMPPI =07617 
CVTPLI =07617 
PI =076174 
DIVPI =076175 
ASHPI =076176 


-SBTTL TRAP CATCHER 


12 
14 


002624 


=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT S 
:*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


SBTTL STARTING ADDRESS(ES) 
.=200 


ia QYSTART -:JUMP TO STARTING ADDRESS OF PROGRAM 
af JMP @ASTARTI 
YMP ss AWS TART2 
« :#%26-APR-78,G.W.** 
JMP °  aWSTART3 sENTRY FOR PID REG. CUTTING AID 


7 003400 


000224 


5 EAA ARERR 


SAV=. 


~=44 


SAPTHE 


SERRA EREEEEEEEREREEEEEEEERREKKEEEREEKREREREEREREERREREREE RARE 


- SBTTL ACT11 HOOKS 

:e THE FOLLOWING LOCATIONS ARE SETUP TO BE USED WITH ACT11 

LOCATION 46 WILL CONTAIN THE ADDRESS OF THE LOCICAL 

** 

>*LOCATION 52 IS USED TO SPECIFY PROGRAM OPERATING REQUIREMENTS 

; AND/OR RESTRICTIONS. THIS IS ACCOMPLISHED BY SETTING VARIOUS BITS 
*TO A ONE OR A ZERO. THE BITS USED AND THERE MEANING ARE: 


BIT 15=1 PROGRAM SHOULD BE POWER FAILED WHILE RUNNING 
=Q NO POWER FAIL DESIRED 


BIT 14=1 PROGRAM RUN TIME IS MEMORY SIZE DEPENDENT 
=0 RUN TIME IS NOT MEMORY SIZE DEPENDENT 


BITS 13-0 MUST BE ZERO'S 
$SVPC=. 3:SAVE LOCATION COUNTER 


ca 


"ne 2 8 


SEQ 0037 


a 3 
~E PDP 11/70 CPU ab XERCISER MACY11 30A(1052) 12-<MAR-80 11:30 PAGE 47-13 
12=MAR-B0 11:27 ACT11 HOOKS 





P11 SEQ 0038 
.=46 ::SET LOCATION COUNTER 
000046 -WORD SENDAD ;;SET LOC.46 TO ADDRESS SENDAD 
-=52 ::SET LOCATION COUNTER 
000052 eWORD 40000 ::SET LOC.52 TO 4 
000224 -=$SVPC z; RESTORE LOCATION COUNTER 
001200 -=1200 
;*APT MAILBOX 
MOR RRA RAABAAALALAAZALZAAAAARARAAEAAEARAELE RAL E SERRE SEAS SS 
001 990000 $APTHE: .WORD 0 
1 KA, SMBADR: SMAIL 
STSTM: .WORD 1500. 
1 734 SPASTM: .WORD 1500. 
001210 SUNITM: .WORD 0 
001212 000014 SMBLTH: .WORD 14 
001214 SMAIL: 
001214 000000 SMSGTY: .WORD 0 
1216 000000 SFATAL: .WORD 0 ; CONTAINS ERROR PC 
1 etal STESTN: .WORD 0 
133s Sever: | 
SMSGAD: 0 
1358 SEES pect 
1 000 SENV: -BYTE O 
ise? 000 SENVM: .BYTE 0 
OOls 000000 SAPTSW: . 0 
001240 000000 SUSUR: 
001242 000006 $CPUOP: 6 
001244 177570 SSWRP: 177570 


CEQK S 
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CEQKCE .P11 12-MAR-80 11 
SEQ 0039 


















































5946 
a) FF AAAAAAAAAAAAAAAAAAAAAAERARARARAEAAAAARARARAAAAARERRERRARARA ARES 
} 3 .SBTTL COMMON TAGS 
a :*THIS TABLE CONTA OMMON 
) :sTHIS TABLE INS VARIOUS C STORAGE LOCATIONS . 
(1) 
F a 001250 .=1250 
1250 
) , SCMTAG: ::START OF COMMON 
43 8158 990000 SPASS:, WORD 0 CONTAINS PASS COUNT 
a) 1584 990 ab da rr 5 >: CONTAINS THE TEST NUMBER 
aaa , Ae | a * CONTAINS ERROR FLAG 
(1) 001 NT: . 0 -: CONTA 
900006 ae i INS SUBTEST ITERATION 
a) O91 pets ata le : ==CONTAINS SCOPE LOOP 1250 ict 
1) 90 potas SLPERR: WORD 0 *:CONTAINS SCOPE RETURN FOR ERRORS 
1) 001 000 SITEMB: BYTE 0 tTCONTAINS ITEM CONTROL BYTE. 
) } m 900004 SERMAX: -BYTE } =: CONTAINS MAX. ERRORS PER FEST 
1) doigr ee: » WORD 0 * CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 137% SEDADR: er 0 : : CONTAINS 1250 OF ° * DATA 
A) 90 SEOOR: Wane 0 *=CONTAINS 1250 OF ‘BAD’ DATA 
(1) 001 SBDDAT: (WORD 0 4 So BR 
1) 001302 000000 000000 “WORD 0.0.0 SO OSEAVED-NOT TO Be 
a ie iter ie: ree a 
F FER 

dl 16 177866 daw id es 9 *:TTY PRINTER STATUS REG. 1250 
1) 001826 388 : oe *: TTY PRINTER BUFFER REG. 1250 
(1) OO oS nee -BY Q ;;CONTAINS NULL CHARACTER FOR FILLS 
(1) Oot : O06 SPILLS: .BYTE  ¢. Z;CONTAINS # OF FILLER CHARACTERS REQUIRED 
1) 001 ons SPILLC: BYTE > INSERT FILL CHARS. AFTER A ‘LINE FEED"’ 
cd} on. STPFLG: 0 5. TERMINAL AVAILABL ELAS (BIT<07>=0=YES) 
R001 * “WHICH (SREGO) WAS 
&) 4 SREGO: . WORD 0 *:CONTAINS (($RE — 
3) 00 oe): . WORD o >: CONTAINS (($REGAD) +2) 
3) 991 aes: . WORD : >: CONTAINS (($REGAD) +4 
3) 00 SREG?: WORD 0 *=CONTAINS (($REGAD) +6 
3) 00 aes: WORD 0 >: CONTAINS (($REGAD) +10) 
3) 001349 it - WORD : CONTAINS (($REGAD) +12) 
3) 00 sre GS: - WORD 0 *°CONTAINS (($REGAD) +14) 
3) 00 3 4a WORD 0 *:CONTAINS (($REGAD) +16) 
3) 00 ance: WORD : =: CONTAINS (($REGAD) +20) 
; 4 STMP2: 4 0 ee Rt DEF INED 
3) 00 STMP2: WORD 0 * USER DEF INE 
3) 00 STMPS: WORD 0 USER DEFINED 
3) 00 sree: ae USER DEFINED 
3 00 STMP5: WORD 0 USER DEFINED 

$TMP7: “WORD ee ER DEF INED 
001 37¢ $TMP10: .WORD \ ‘USER DEFINED 

$TMP11: .wORD 0 "USER DEFINED 
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CEQKCE .P11 1 DoMAR BO 11: COMMON TAGS SEQ 0040 
1 37 STIMES: 0 ::MAX. NUMBER OF ITERATIONS 
(1 1 SESCAPE :0 >: ESCAPE ON ERROR 1250 
(7 1 1 607 000377 SBELL: .ASCIZ <207><377><377> ::CODE FOR BELL 
(1 0 S: .ASCI] /7?/ 23 STION 
(7 1 015 SCRLF: .ASCII <15> = CARRIAGE RETURN 
(7 161 SLF : “ASCIZ. <1l2> =>LINE FEED 
( 41 ERRRTN: .WORD 
( 41 SFLBUFF:.BLKB 44 :BUFFER FOR FLOATING POINT CONVERSION 
( 1460 SBUFF: .WORD ; 
( SACO:  .WORD “EXTENDED EXPONENT VALUES 
( 664 $AC1 WORD *FOR THE SIX FLOATING POINT 
( 1 SAC WORD : ACCUMULATORS 
( 9014 SAC WORD 
( 14 $AC4:  . WORD 
( 1474 000000 $AC5:  .WORD 
( 1476 000000 $STMP4: .WORD 
( 1 900000 SSTMP6: WORD 
( 1 FLTMPO: .BLKW 4 :FLOATING POINT DBL PREC BUFFER 
( oid 12 000004 FLTMP1: .BLKW 4 
( 522 001524 TKBFRP: . TKBFR  :POINTER FOR KEYBOARD BUFFER 
( dF 4 000011 TKBFR: .BLKW 117 2K FER 
( 1 000000 NOTYPE: . *NO TYPEOUT FLAG (INHIBIT WHEN SET) 
(3) 001550 000000 OPT.CP: . =CPU OPTION FLAGS 
(3) 00155 000 KBIIE: .BYTE 0 : WITHOUT MP CACHE 
(3) 00155 000 KBI1EM: .BYTE 0 > WITH MP CACHE 
( 001354 000 KB11(M: .BYTE 0 >KB11CM FLAG (1170 WITH MP MODS) 
( 1555 000 ISP: .BYTE 0 -CISP OPTION PRESENT FLAG 
(3) 001556 000004 SSAVPAR: .BLkw 4 :USED BY INTERUPT SERVICE ROUTINE 
( 901 : WORD -DITTO 
( 15 SRTRN: RIT “RETURN FOR T-BIT TRAP 
(3) 0015 VADR:  .WORD “BUFFER FOR VIRTUAL ADDRESS 
( 001574 000000 PA1500: .WORD “BUFFER FOR PHYSICAL ADDRESS BITS<15:00> 
( 1576 000000 PA2116: .WORD “PHYSICAL ADDRESS BITS<21:16> 
(3) 001600 000 NEXEC: .BYTE “NO EXECUTE FLAG(NO TEST EXECUTION WHEN SET) 
(3) 001601 000 : BYTE [MEMORY MGMT FLAG(MGMT IS ON WHEN NON-ZERO) 
( 001602 000 QV: _BYTE “QV FLAG(QV PASS WHEN SET) 
( 001605 000 AA: .BYTE “AUTO ACCEPT FLAG (AA PASS WHEN SET) 
(3) 001 000000 FACTOR: .WORD “RELOCATION FACTOR(NUMBER OF 
(3) 001 000000 SFACTOR: . WORD “BYTES ABOVE BASE C 
(3) 001610 000000 FRSTAD: .WORD “FIRST ADDRESS OF SECTION BEING EXECUTED 
(3) 001612 000000 FRSTMEM: . WORD -ADDRESS OF F Y 
( 001614 000000 LSTMEM: . WORD : ADDRESS OF 
( 1616 NEXPAR: WORD “NEXT VALUE T 
( 1 123456 SLONUM: .WORD 123456 :LOW 16 BIT NUMBER 
( 1 065432 SHINUM: .WORD 65432 gHIGH 16 BITS OF RANDOM NUMBER 
001 g a7 377 377 NULLS: .BYTE 377,377.377,0  ;BUFFER FOR PRINTER TEST 
(3) 001 000060 SUBPASS:.WORD 60 :SUB=-PASS COUNT IN ASCII 
(3) 001 000000 SERPSW: .WORD “ERROR PSW FOR TYPEOUT 
(3) 001 000000 EXITFL: .WORD 
(3) 001 OL DBASE : . WORD : SOURCE BASE ADDRESS FOR DEVICE RELOCATION 
(3) 001640 NWBASL: .WORD “DEST ADDRESS FOR DEVICE RELOC BITS<15:00> 
(3) 001642 NWBASH: .WORD “DEST ADDRESS FOR DEVICE RELOC BITS<21:16> 
(3) 001644 000000 10WC:  .WORD =TWO'S COMPLIMENT WORD COUNT FOR DEVICE RELOC 
(3) 001646 000000 DEVICE: .WORD 
(3) 001650 000000 DEVINDX : . WORD -DEVICE INDEX (0 TO 7) 


CE 


5 
oe 
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00 


o® 
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AGS 
UNITNO: .WORD :DEVICE UNIT NUMBER 
RNTBINX: . WORD : INDEX TO RUN TABLE 
I: .WORD =BI1TS<21:16> OF LAST MEM ADDRESS ON SYSTEM 
O: .WORD -BITS<15: T EM ADORE ADDRESS ON SYSTEM 
RP310: .WORD -DATA TO LOAD 1 NTO +O RPO CS REGISTER 
RP311: . WORD :RPO3 FLAG FOR FIRST PROGRAM 
RK10: .WORD “DATA TO LOAD INTO RKOS CS REGISTER 
RK11:  . WORD =RKOS FLAG FOR FIRST PROGRAM 
RP411: WORD =RPO4 FLAG FOR FIRST 2K OF PROGRAM 
RS11: . WORD :RSO4 FLAG FOR FIRST PROGRAM 
MTICKS: .WORD : ELAPSED RUN TIME IN MINUTES 
LTICKS: .WORD LOW BYTE R OF CLOCK INTERRUPTS (0 TO 59) 
“HIGH BYTE=ELAPSED RUN TIME IN SECONDS(O TO 59) 
LD2PNT: .WORD 0 “NEXT 3 WORDS USED FOR CISP DETECTION 
LD2PT1: .WORD 0 
LD3PNT: .WORD 0 
SMAINT: .WORD URRENT VALUE IN MAINTENANCE REGISTE 
SYSSIZE:.BLKw 10 :SYSTEM SIZE TABLE(ONE ENTRY FOR EACH DEVICE) 
RUNTBL: .BLKW 7 TIME TABLE(ONE ENTRY FOR EAC OCK) 
RUNTRAK: .BLKW 7 :RUN TRACK TABLE(ONE ENTRY F H 2K BLOCK) 
MAPTBL: .WORD -1 : T E (ONE BYTE FOR EACH UNIBUS DEVICE) 
WORD -1 sUNUSED=377, USED=LOW 5 BITS OF MAP ss 
UBESAV: .BLKW 2 : BASE T aa Ss 
UBE .BLKW 2 ADDRESS THAT GETS LOADED INTO UBE BA REG 
. : .BLK 2 8 BIT UNIBUS ADDRESS WHEN DEVICE DETECTED AN ERROR 
-SBTTL DEVICE HANDLER siATUs WORDS 
:* ACH WORD HAS THE FOLLOWING BIT ASSIGNMENTS: 
:* 7 HANDLER 
;* 8 REPEAT LAST FUNCTION 
;* 15 ERROR 
RP3HSTAT:.WORD 200 =RPO3 
STAT:.WORD 200 =RKO5 
SPAREO: .WORD 200 
SPARE1: .WORD 200 
RPGHSTAT:.WORD 200 7RPO4 
RSHSTAT:.WORD 200 =RS04 
-WORD 200 : SPARE 
-WORD 200 : SPARE 
.SBTTL DEVICE HANDLER WORD COUN 
3* THIS TABLE GETS LOADED BY 
:* RELOCATION ROUTINE WITH THE T 
3% COUNT FOR THE TRANSFER FOR THE PARTICULAR DEVICE. 
RP3HWC: .WORD RPO 
RKHWC: WORD =RKOS 
. WORD : SPARE 
.- WORD : SPARE 
RP4HWC: .WORD =RPO4 
RSHWC: WORD =RS04 
.SBTTL DEVICE HANDLER OLD BASE ADDRESS 
:* THIS TABLE GETS LOADED BY THE I/O RELOCATION ROUTINE 
:* WITH THE BASE ADDRESS OF THE SOURCE DATA FOR THE 
:* DEVICE THAT IS GOING TO TRANSFER THE DATA. 
RP3SOLD: .WORD ;RPOS 


- WORD 
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SEQ 0041 
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~ 


NANAAAN AANA ANA 
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E HANDLER OLD BASE ADDRESS SEQ 0042 
RKOLD: .WORD >RKOS 
.- WORD 
.- WORD 3; SPARE 
. WORD - SPARE 
. WORD 
. WORD ; SPARE 
RPGOLD: .WORD sRPOS 
- WORD 
RSOLD: .WORD sRSO04 
. WORD 
.SBTTL DEVICE HANDLER NEW BASE ADDRESSES 
s* THIS TABLE GETS LOADED BY THE I/0 SECT I ROUT INE 
Pal WITH THE BASE ADDRESS OF THE DESTINATION FOR THE 
;@ PARTICULAR DEVICE THAT IS GOING TO DO THE TRANSFER. 
72 000000 RP3NWL: .WORD :RPO3 
000000 RP3NWH: .WORD 
002076 000000 RKNEWL: .WORD :RKOS 
1s 000000 RKNEWH: .WORD 
1 000000 . WORD : SPARE 
104 000000 - WORD 
198 000000 . WORD ; SPARE 
110 000000 . WORD 
002112 000000 RP4NWL: .WORD :RPO4 
114 000000 : WORD 
002116 000000 RSNEWL: .WORD :RS04 
002120 000000 RSNEWH: .WORD 
.SBTTL DEVICE HANDLER UNIT NUMBER 
:* THIS TABLE GETS LOADED BY THE I/0 RELOCATION ROUTINE. 
3 IT TELLS THE DEVICE HANDLER WHICH UNIT NUMBER IS 
TO DO THE TRANSFER. 
002122 000000 RP3UNIT: . WORD sRPO3 
124 000000 RKUNIT: .WORD :RKOS 
00 1¢6 000000 . WORD : SPARE 
1 000000 . WORD : SPARE 
00 it 000000 RP4UNIT: .WORD >RPOS 
1 000000 : WORD 7RS04 
-SBTTL ADDRESS OF THE DEVICE HANDLERS 
;* THIS TABLE CONTAINS THE ADDRESS OF THE DEVICE HANDLER 
;* ROUTINES. IT IS USED BY THE I/0 RELOCATION ROUTINE 
3% TO TRANSFER CONTROL TO THE DEVICE HANDLER. 
136 72 RP3HANA:.WORD RPSDRV ; 
140 047310 RKHANA: .WORD RKDRV  ;RKOS5 
142 . WORD 
144 . WORD 3 SPARE 
002146 04 RP4HANA:.WORD RPGDRV ; 
002150 050254 RSHANA: .WORD RSDRV 7RS04 
-SBTTL DEVICE HANDLER DISK ADDRESS TABLE 
3* THIS TABLE GETS LOADED BY THE DEVICE HANDLER WITH THE 
:* oe oe AND CYLINDER) OF THE CURRENT 
**® RANS - 


3HDA: RPO3 DISK ADDRESS 
54 000000 RPSHDC: .WORD :RPO3 DESIRED CYLINDER 


or 
pay 


Le LO LOO LOD LOD LO OD OC LL LDC LOL DC LC LC OB BOE BBO OB OC EEE EBLE ELE BBB BEE BOL LLB AAO BAER 


NNANNANNANANNANA 


ee tt et Nt a a ae at a a at a at a a a ae a a a a ee a a at a a et et ee a a et ee et et et Se ee et et ae et ee ee ee ee ee ee ee AR 


AANAANNAA AAA NW AINNAI NWA NOW W AANA AANA NANA ANA 


dd ot 


AfMmO 


BEEES SKRVS 


ie BU EMEC EER MACY11 od. 


a 
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TABLE 


RKHDA: .WORD :RKOS DISK ADDRESS 

. WORD : SPARE 
RPGHDA: .WORD 
RPG4HDC: .WORD sRPO4 DESIRED CYLINDER 
RSHDA: .WORD =RSO4 DISK ADDRESS 
.SBTTL DEVICE HANDLER FUNCTION TABLE 
;* THIS TABLE GETS LOADED BY THE DEVICE HANDLERS 
;* AND THE DEVICE SERVICE ROUTINES. IT TELLS THE ROUTINES 
3* WHICH FUNCTION TO DO NEXT. 
RPSFUN: .WORD ;RPO3 
RKF UN . WORD :RKOS 

. WORD ; SPARE 
RP4FUN: .WORD sRPO4 
RSFUN: .WORD 7RSO04 
.SBTTL DEVICE HANDLER RETRY COUNT 
:* THIS TABLE GETS LOADED BY THE aie HANDLERS AND IS USED 
3* BY THE DEVICE SERVICE ROUTINES. IF ~- fh ye OCCURS 
;* THE DEVICE SERVICE ROUTINE WILL RETRY THE FUNCTION UNTIL 
:* = BYTE IN THIS TABLE GOES TO ZERO. IT IS INITIALIZED 
*“® - e 
RP3TRY: .BYTE ;RPO3 
RKTRY -BYTE :RKOS 

-BYTE ; SPARE 
RP4TRY: .BYTE sRPO4 
RSTRY: .BYTE 7RS04 

EVEN 
-SBTTL DEVICE REGISTER TABLES 
:* THE FOLLOWING ae CONTAIN THE STANDARD ADDRESS FOR 
;* THE DEVICES USED BY THIS PROGRAM. IF A DEVICE IS PLACED 
;* AT A NON-STANDARD ADDRESS THE APPROPRIATE TABLE CAN BE 
3* HANGED AND THE PROGRAM WILL OPERATE THAT DEVICE. 
** 
:* EXCEPTION--SEE DOCUMENTATION FOR RPO3 AND RPO4 PROBLEMS. 
-SBITL RP11/RPOS BESS STERS 
RP3DS: .WORD 176710 ;DRIVE STATUS 

3ER: .WORD 176712 = ERROR REGISTER 
RP3CS: .WORD 176714 : CONTROL AND STATUS 
RP3WC: .WORD 176716 WORD COUNT 
RPSBA: .WORD 1767 ; 
RP3DA: .WORD 176724 ;DISK ADDRESS 
RP3DC: .WORD 176722 “DESIRED CYLINDER 
RP3VEC: .WORD 54 s INTERRUPT VECTOR 
RP3PSW: .WORD 56 : INTERRUPT VECTOR+2 
-SBTTL RK11/RKO5 1S5oh5 83 
RKDS: . WORD >DRIVE STATUS 
RKER WORD 199409 =ERROR REGISTER 
RKCS -WORD 177404 ;CONTROL AND STATUS 
RKWC . WORD 7406; COUNT 
: -WORD 177410 : 

RKDA: «WORD 177412 ;DISK ADDRESS 
RKVEC: .WORD 0 : INTERRUPT VECTOR 
RKPSW: .WORD 222 : INTERRUPT VECTOR+2 


SEQ 0043 
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-— PDP 
E. 

(3) ae 3 
(3) Ree ED 176700 CCUNTROL AND STATUS #1 
(3) ae 170000 RP4WC: .WORD 176702 :WORD COUNT 
(3) 170006 RP4BA: .WORD 176704 :BUS ADDRESS 
(3) 7 RP4BAE: .WORD 176750 :BUS ADDRESS EXTENDED 
(3) 1762 RP4DA: .WORD 176 “DISK ADDRESS 
(3) 15E746 RP4CS2: .WORD 17671 ; CONTROL AND STATUS #2 
15875 RP4CS3: .WORD 176r5¢ CONTROL AND - STATUS #3 

RP4DS: .WORD 176712 ;DR 
(3) 1987) RP GER "WORD 176714 :ERROR REG #1 
74 17e 784 RP4DC: .WORD 176734 ;DESIRED | CYLINDER 

WORD 176 

(3) 76 176740 RPG4ER2: . 176740 ZERROR REG Be 
(3) 176742 RPGERS: .WORD ERROR REG 3 
¢ 170783 RPO WORD 176730 :0F FSET REGISTER 
(3) OC 000254 RP4VEC: .WORD : INTERRUP TOR 
( 00231 900586 RP4PSW: .WORD $26 > INTERRUPT VEC 
GISTERS 
3 00 312 172040 ReesTs “WORD 172060 Sono CONT AND STATUS #1 
(3) 14 172042 RSWC: — . WORD ; WORD 
(3) UB ELS > RSBAL : “WORD 172070 ‘Bus ADDRESS EXTENDED 
(3) 1950 RSDA: .WORD 17 :DISK ADDRESS 
(3) ; i RSCS2: .WORD 172050 :CONTROL AND STATUS #2 
(yo seSe 15507 RSCS3: .WORD 172079 * CONTROL AND STATUS #3 
(3) 3 £5 RSDS: .WORD 172052 :DRIVE STATUS 
(3) 8 54 RSER: .WORD 172054 <:ERROR REG 
(3) 0093 0005 RSVEC: .WORD 204 ; INTERRUPT VECTOR 
i 00 33 Ose RSPSW: .WORD 206 : INTERRUP me 
(3) EXERCISER REGISTER A ADDRESS 
(3) » a NIE TABLE. IS ASSEMBLED FOR UBE #0. UBE 
(3) ie ADDRESSES ARE CUT FOR OTHER THAN vil 0, THE PROGRAM 
3 Limite Hanke, on FON Poco 
&) 0 170002 UBETBL: .WORD UBECC ;CYCLE C NT ec 
(3) ¢ 150016 “WORD  UBECR2 : CONTROL REGISTER #2 
1) Sus 1788 US Bette oat Cat sabes 
3} 8 329 soot c UBEVEC _; INTERRUPT VECTOR ial i 
(3) 354 000512 -WORD UBEVEC+2 IN ser 
(3) TER ADDRESS 
(3) + as " BocRM IS ASSCRBLED WITH ADDRESSES FOR A MBT 
(3) in AT 770100. IF Tie wr ls 7A ANOTHER ADDRESS I THE PROGRAM 
(3) + WTO OORESSES 77 770100. (70200, 770 770300. JNO 770400. 
(3) 002356 160100 MBTTBL: - WORD betes! ; CONTROL OL AN 
(3) 002360 160102 WORD MBTWC  :WORD COUNT . 
(3, odsex  e0174 "WORD MBTBAE :BUS ADDRESS EXTENDED 
(3) OOS see 180106 “WORD MBTMR2 MAINTENANCE REGISTER #2 
(3) 002370 160110 "WORD MBTCS2 :CONTROL REG 


CQ L&R FR FR EO FR OO 
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BUS TESTER REGISTER ADDRESSES SEQ 0045 


WORD MBTST ;STATUS REGISTER 
MBTER TER 


WORD E REGIS 

WORD MBITCS3 ;CONTROL REGISTER 43 
WORD C ;INTERRUPT VE 

WORD MBIPSW ; INTERRUPT VE + 
WORD T ;DRIVE TYPE REGISTER 
WORD sMASS BUS TESTER #2 
WORD 160300 ;MASS BUS TESTER 45 


WORD 160400 ;MASS BUS TESTER #4 


ry 

mn 

RR 
Vv me 


li at tt tt te te ee ee el 
SS St ot et tt = tet DD ee et 
Nee ee we ee ee oe ee 


‘2 


én 


“ye 
—! 
_y 
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11:2 S BUS TESTER REGISTER ADDRESSES 


MEIC 
.SBTTL ERROR POINTER TABLE 

:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*T NUMBER FOUND 


INFORMATION IS OBTAINED BY USING THE INDEX IN 
: LOCATION SITEMB. THIS NUMBER INDICATES Nae ITEM IN THE TABLE IS PERTINENT. 
THE ONLY PERTI (SERRPC). 


; *NOTE1 IF SITEMB IS 0 NENT DATA IS (¢ 
* #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM :;POINTS TO THE ERROR MESSAGE 
;* DH ::;POINTS TO THE DATA HEADER 
3@ DT ::POINTS TO THE DATA 
;* DF ::;POINTS TO THE DATA FORMAT 
SERRTB 
s ITEM 1 
EM1 sUNEXPECTED TRAP TO 4 
DH1 :PCOF TP PHYSC PSW CPUERR 
DT1 -VADR, VADR,STMPO,$STMP2 
DF 1 :0,1,0,0,0° 
s ITEM 2 
EM2 : UNEXPECTED TRAP TO 10 
DH2 :PCOFTP PHYSPC PSW 
ae : VADR, VADR,$TMPO 
: ITEM 3 
EM3 :UNEXPECTED TRAP TO 250(MGMT) 
DH3 = PCOF TP PHY SPC PSW MMR MMR 2 
+5 = VADR, VADR.STMPO, .STMP2, .STMP5 
: ITEM 4 
EMG sUNEXPECTED TRAP TO 114 
DH4 : PCOF TP PHYSPC PSW ERADREG MEMERRREG 
DT3 : VADR VADR,STMPO, STMP3,STMP2 
DF4 70,1,0,2,0° 
: ITEM 5 
EMS sPARITY yp DURING DATA CHECK 
DH5 :SRCADR D ERRADREG MEM ERR REG 
4 -$TMPO, paisoo. STMPS,.STMP2 
s ITEM 6 
EMG :ERROR DURING CHECK OF RELOCATED DATA 
DH6 :SRCADR DSTADR 
DT6 *$TMPO, PA1500 
oC TER 7 
0 
0 
0 
0 
; ITEM 10 
EM10 :ERROR DURING DATA CHECK=-RELOC WAS BY I[/U 
DH10 -SRCADR ODSTADR DEVICE THAT DID XFER 
DT10 “$TMPO, VADR,STMP2.STMPS3 





SEQ 0046 
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3986 002512 066620 DF 10, % :0,1.3.0 
$388 316 36 —m11 :BIT(S) STUCK IN, MI CRO“BREAK REG 
5 DH11 -GOOD DAT BAD DA 
5990 2 726 0111 > $TMPO, STMP1 
5991 726 OF 11 0,0 
599 iATEM 12 
599 066734 EM1 :UNIBUS EXERCISER NON-EXISTANT MEMORE Y 
5994 526 066772 DH12 =PHYSICAL ADDRESS 
5995 067010 DT12 =PA1500 
5 532 067006 Flo 2 
599 sii" 13 
5998 534 067014 EM1 :MASS BUS TESTER NON-EXISTANT MEMORY 
5999 536 067052 DH13 -PHYSICAL ADDRESS 
6000 0 067010 DT12 
6001 542 067 12 
6002 = ITEM 14 

544 067067 EM14 ; FLOATING POINT ERROR 
6004 00 067114 DH14 DAT DAT 
6005 002550 067134 D114 “ STMPS, sheGe. STMP6, SREG3 
6006 552 067146 DF 14 °4,0,4,.0 
6007 PL 15 
6008 002554 067152 1 :DEVICE HUNG 
6009 002556 000000 0 
6010 002560 000000 0 
6011 002562 000000 0 
Og : ITEM 16 
6013 002564 067067 EM14 :FLOATING POINT ERROR 
6014 002566 067166 DH16 
6015 067220 D116 :FLTMPO, SREG2.FLTMP1,$REG3 
6016 002572 067213 DF 16 5.0.5.0 
6017 ; s ITEM 17 
6018 00 574 ' 067232 EM17 ;RO FAILED TO LOAD CORRECTLY ON MFPT 
6019 576 066703 DH11 BAD DAT 

2600 066726 D111 MPO. SIMPY 
6021 2602 066724 OF 11 0,0 
60 ¢ : ITEM 20 

4 002604 067276 EM20 =CIS INSTRUCTION FAILURE 

6025 066452 DH6 
6026 002610 066726 D111 
6027 002612 066724 OF 11 
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POINTER TABLE 


pet Fe poses onary 177570 177570 START1: ~y @ASWR ABADI SPLAY 





ce 
6060 
6061 
ro 
6064 
6065 
6066 
6067 
60 
Bi 
60 
Bi 2118 
Br 558 
60 000377 
pth 001552 
177777 
1 177770 
ie) is 
6084 
6085 177770 
eos 177770 
6088 000125 
pao a4 001552 
6091 03636? 
Oe 177770 
609 177770 
6095 000252 
pres 001552 
6098 125252 
6099 177770 
eine 177770 
610 176356 
ote 177770 
61 002624 
i 
8107 000100 
at 003026 
(1) 


000034 
000030 


001354 
001262 


177770 


TART 
-SBTTL PROGRAM INITIALIZATION 


PITTI TTI iii iii iii iii 
‘SBT L MICRO-BREAK REGISTER TEST 

:*THIS TEST IS EXECUTED BY STARTING THE PROGRAM AT ADDRESS 214 
:*THIS TEST REQUIRES A MAINTENANCE —_ 

:*THE PROCESSOR SHOULD STOP 8 TIMES. FOLLOWING IS THE DAT 
:*THAT SHOULD BE IN THE MICRO-ADRESS DATA LIGHTS EACH TIME : 






‘fe 1 000 
:* 2 091 
;* 3 002 
:* 4 004 
3% 5 010 
;@ 6 020 
:* 7 040 
se 8 200 
ia: 6 lhe...) LC CUCULTOOMeSs 
START2: #1100,SP :SETUP THE SP 
mov HSTRAP aa TRAPVEC :SETUP TRAP VECTOR 
MOV RROR , aWEMTVEC: SETUP EMT VEC TOR 
MOV #377,RO MI1CRO-BREAK DATA IN RO 
TST arKBi 1€ “15 "Ms A KB11-€ oR KB11-EM PROCESSOR? 
BEQ 1$ “BR IF NOT. T U-BREAK REGISTER 
MOV #177777 RO *KB11-E AND KB11-EM HAVE 16 BIT U-BREAK REGISTER 
1$: MOV RO, @#UBRE AK ;LOAD U BREAK REG 
CMP RO, A#UBREAK “LOAD OK? 
BNE UBRERR “BRANCH IF NO 
CLR RO 
MOV RO, @#UBREAK 
CMP RO, @FUBRE AK 
BNE UBRERR 
MOV #125,RO 
TST avxBi le :IS THIS A KB11-E OR KB11EM PROCESSOR? 
BEQ 2$ “BR IF NOT. 8 BIT U-BREAK REGISTER 
MOV #52525,RO >KB11-E AND KB11-EM HAVE 16 BIT U-BREAK REGISTER 
2$: MOV RO, AFUBRE AK 
44 a 
MOV ret RO 
TST aKa 1E :1S THIS A KB11-E OR KB11-EM 
BEQ 3$ “BR IF NOT. 8 BIT U-BREAK REGISTER 
MOV #125252,R0 *KB11-E AND KB11-EM HAVE 16 BIT U-BREAK REGISTER 
3$: yd ne Bose op 
BEQ UBRK2 


UBRERR: MOV RO. STMPO 
MOV aWUBREAK ,a#STMP1 
MOV #START2 ,@#SLPERR 


ERROR 117 

;TEST TO ENSURE U BREAK COMPARATORS DO NOT COME ON. 

UBRK2: MOV #100 , @#UBRE AK ;PUT SAFE VALUE IN REG 
TYPE ,65 th ASCIZ STRING 
BR 64$ ;GET OVER THE ASCIZ 

::65$: .ASCIZ /SET MAINT TO STOP ON MICRO-BREAK/<CRLF > 


AND OPERATOR INTERVENTION. 


SEQ 0048 








CEQKC-E PDP 1i/ 
CEQKCE .P1 12 
(1) 70 
6109 70 
(1) 74 
(1) 
(1) 114 
6110 114 
6111 116 
ots 124 
611 1 
6114 1 
6115 142 
otis 146 
611 152 
9118 154 
611 160 
61 1 
6121 1 
61 ¢ 1 
61 176 Q1 
6124 1 
6125 01 
61 05 
61 01 
61 1 
61 
61 012701 
6131 01 N68 
61 01 
61 
61 
6135 
61 
61 
61 
61 
6140 
6141 
6142 00 
6145 00 
6144 
6145 00 077105 
oles 18 111237 
614 005037 
6148 104400 
at 000403 
(1) oes 
6149 2 000000 
6150 344 000522 
6151 000 
il 
gg aks 
153 003 000010 
00 005040 
003374 000207 





177770 
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MICRO-BREAK REGISTER TEST 


30A(1052) 
64$: 
TYPE 
BR 
::67$: .ASCIZ 
66$: 
HAL T 
MOV 
MOV 
MOV 
MOV 
MOV 
1$: MOVB 
10 
CLR 
S08 
MOV 
MARK 
2$: CLR 
MOV 
MOV 
MOV 
BIS 
MOV 
MOV 
CLR 
MOV 
MOV 
4$: MOV 
. WORD 
3$: S08 
MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
6$ MOVB 
MOV 
WORD 
5$: So8 
MOVB 
CLR 
TYPE 
BR 
::69$: .ASCIZ 
68s: 
HALT 
BR 
UBRTBL: .BYTE 
-EVEN 
INSTBL: .WORD 


.67$ 
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TYPE ASCIZ STRING 


;;GET OVER THE ASCIZ 


66$ ; 
7HIT CONTINUE/<CRLF> 


#12,@MRESVEC 
#2 ,a@MRESVEC+2 
#2$,R5 

#10,R1 
MUBRTBL+1,R2 


(R2) +, @AUBREAK 


RVEC 
#2, Q@MERRVEC+2 
#81714 ,a#PSw 
#700,SP 
#3$ ,-(SP) 


#7 R11 
#INSTBL+2,R2 


(R20 +, (PC) 


R1.4$ 
#100 @MUBREAK 


R1,6$ 
(R2) , AAUBREAK 
awPSw 


68$ 
/DONE /<CRLF> 


S 


;SET UP RS FOR MARK INSTR 
;SET SOB COUNT 
;GET ADRS OF UBREAK DATA TABLE 
;LOAD MICRO-BREAK FROM TABLE 
sEXEC RES INSTR (ROM ADRS 000) 


; CONT INUE 
;SET MICRO-BREAK DATA PATTERN 
EXEC MARK (ROM ADRS 252) 


RESTORE SP 


7GO TO SUPER MODE 

:SET SUPER SP 

:SETUP STACKK FOR JSR INSTR 
:SETUP RO 

;SET SOB COUNT 

:GET ADRS OF TABLE OF INSTRUCTIONS 


:GET INSTRUCTION 

sEXECUTE INSTRUCTION 

; CONT INUE 

PUT SAFE VALUE IN UBREAK REG 


;LOAD UBREAK REG FROM TABLE 
:GET INSTR FROM TABLE 

sEXECUTE INSTR. PROCESSOR SHOULD STOP 
Ry CORRECT ROM ADR IN THE LIGHTS 


;PUT SAFE VALUE IN UBREAK REG 
:GO BACK TO KERNEL MODE 
TYPE ASCIZ STRING 

3;GET OVER THE ASCIZ 


TART 
0.1,2,4,10,20,40,200,100 


10,5010,5020,5040,0,5200,207,5010 


SEQ 0049 


DOO 
~~ 

wi 

NOR m 


ar no 
Sealed ain tame tan teenie an tt antl ae tel ana 
a eet peer ebadead 
ewww OOww ~Owueww 


i 


ao8e 
ae 


= 
Sa 
—= 


nd at wt 
—_ =Oo0— 
Ww 
w Oy 
— 


— 
NW -—]NUNN NOS 


=3 
= 


001 099270 
003460 


003550 


001 

076548 
123456 
001602 


001234 
001603 
001235 
001236 


046656 
001602 


001603 


000042 
003641 


001602 
003640 
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SEQ 0050 


#1100.SP :SET UP STACK 
ASTRAP , aA TRAPVEC “SET UP TRAP VECTOR 
,65$ 33 Type ASCIZ STRING 


.67$ ;zTYPE ASCIZ STRING 
OVER THE ASCIZ 
<15><12>/TYPE IN THE DESIRED PROCESSOR SERIAL NUMBER: / 


;GET THE NUMBER. 
,O9$ ahh ASCIZ STRING 
68$ :GET OVER THE ASCIZ 
<15><12>/THE OCTAL EQUIVALENT IS : / 


;TYPE_THE NUMBER IN OCTAL 
STARTS 


£ LARA REEAEEEEEEEKEEEEKEEAEREEEREEKRERERKERERERERARRERREREEE 


1052) 
START3: MOV 
TYPE 
BR 
7:65$: .ASCIZ 
64$: 
TYPE 
BR 
3:67$: .ASCIZ 
"  RDDEC 
TYPE 
--69$: OASCIZ 
68s: ere 
TYPOC 
BR 
START: MOV 
MOV 
MOV 


XXDP : 
XXDPC: 


PROT: 


15$: 


1$: 


2$: 


3$: 


-SET MEMORY PROTECTION LIMITS 
TST avaV 


BNE 
TST 


MKERSTK ,SP SET KERNEL STACK PTR 
#76543 .a4SHINUM ; INITIALIZE RANDOM NUM GEN 
#123456, SySLONUM 


DETERMINE HOW PROGRAM WAS LOADED AND WHAT MODE (IF ACT11) 
SAND SET taal eo 


V :SET NOT QV NOR AA MODE 
(PC)+ *SET NOT XXDP 
0 =XXDP INDICATOR 
0 =XXDP CHAIN MODE INDICATOR 
(PC) + “CLEAR MEMORY PROTECTION LIMIT 
0 “WILL CONTAIN MEM PROT LIMIT 
@vSENV “APT MODE 
15$ =NO 
SP, a#AA :SET UP FOR APT 
arse :APT CONTROL 
#SAPTSW,@NSSURP “USE APT SwR 
arse NDAD +4 :BRANCH IF NOT QV 
SP, a#QVv -SET ACT11 QV MODE 
3$ 
2$ 
SP -@HAA :SET ACT11 AA MODE 
ars :BRANCH IF NOT IN CHAIN MODE 
SP, @#XXDPC :SET CHAIN MODE INDICATOR 

“BRANCH IF QV OR AA 

MEMS 17Z 
aAXXDP -BRANCH IF NOT VIA XXDP 


4 
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Fee Se 


— 2 2 ed ed eed 


tees cement tenet 


ee ee ee ee fe te Be ee ee A ee we ee 


— 2 2 


WO fj 
ed © de ed 


ay 


VBUVBLR 
Wary 
3 


S™N 


rf 


ue 


— 
WM—EAO 


SEEKS SSKSSES SELESEEE LEE EEE 


rm RAN Zoo 
= SSNSNNSE RSS Fee 


2 


140 

O1737 
12737 
165737 
012737 


157776 


6 
067850 


000200 
055670 
000037 


056242 
177760 


062270 
004046 


004142 
004222 


001407 
177762 


004334 


055716 
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MICRO-BREAK REGISTER TES 


MEMSIZ: 


:GET ADDRESS OF THE LAST MEMORY 
:SIZE MEMORY AND COMPAR 
:PRINT A WARNING IF THE 


32658: 
64$: 


::67$: 
66$: 


::69$: 
68$: 


fs: 


‘is: 


:FORM MXMMHI, MXMMLO, AND THE HIGHEST MEMORY ADDRESS BASED ON THE SIZE OF 


BEQ 
MOV 
MOV 


SUB 
MOV 


; THE MEMORY 


OKSIZ: 


IZ 
FD a en 
@4#PROT 


47-26 


MEM 
#ENDTAG+2, a#FRSTMEM 
LOCATION ON THE SYSTEM 


#21T07,$KT11 

Po $SI 

#37, $LSTBK 
$LSTBK,R2 
@FSIZELO,R2 

OKSI 

#STRAP , AA TRAPVEC 
65$ 


64$ 3a 
<15><12>/WARNING= T 


.67$ 


-=GET OVER THE ASCIZ 
<15><12>/ INDICATED BY THE SYSTEM SIZE REGISTER./ 


09S 
<15><12>/ SI 


.SCRLF 
aNSIZEHI.-(SP) 
& 

048 

70$ 

/ / 
a#SIZELO,-(SP) 
6 
0835 
72$ 
/ / 
SLSTBK.-(SP) 


6 
0 


;PROTECT XXDP MONITOR 

;SET VALUE INTO LSTMEM 
PROTECTION 
;SET FIRST RELOCATION ADDRESS 


3SET 


;COPY LAST BLOCK COUNT 
; EQUAL? 


;SET UP TRAP VECTOR 


E IT WITH THE SYSTEM SIZE REGISTER 
Y DISAGREE. 


sz TYPE ASCIZ STRING 


E ASCIZ 
HE SIZE OF MEMORY IS DIFFERENT FROM THAT/ 


:sTYPE ASCIZ STRING 


7: TYPE ASCIZ STRING 


GET OVER THE 


ZEHI 


7-SAVE @#SIZEHI FOR TYPEOUT 
:3 ASCII 


SIZELO 


ASCIZ 
ACTUAL / 


; 7; SUPPRESS 
3: TYPE ASCIZ STRING 


::;GET OVER THE ASCIZ 


:: TYPE 


33 SAVE 


;3SAVE @#SIZELO FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII 


ASCIZ ST 
::GET OVER THE ASCIZ 


SLSTBK FOR TYPEOUT 
3;GO TYPE--OCTAL ASCII 
se TYPE 6 DIGIT(S) 


; SUPPRESS LEADING ZERO 


SEQ 0051 


N 4 
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CEQKCE.P11  12=MAR-80 11:27 ICRO“BREAK REGISTER TEST SEQ 0052 
54 CLR R2 
5 266 MOV @*SLSTBK,R3 
ASHC 4#6,R2 :SHIFT TO FORM CORRECT ADDRESS 
; 77 BIS #77 ,R3 “ENSURE LOWER SIX BITS SET 
000001 ADD #1,R3 
7 502 C 
e 4 : Raakazkazaakanrkank 
5261 904400 910237 001656 MOV RQ. SAMXMPNH :SAVE UPPER SIX BITS 
4¢ 010337 001660 MOV R3. a4MXMMLO “SAVE LOWER 16 BITS 
6244 10 01 706 001200 MOV #KERSTK,SP :SET STACK PTR 
6245 14 O80 001250 CLR aYSPASS “CLEAR PASS C 
46 105037 001601 CLRB § a#MMON “SET MEM MGMT ON IND=NOT ON 
yh 4 Ore 7 000700 001616 MOV #700, @#NEXPAR “SET FIRST "PAR" VALUE 
6248 737 003644 TST aHPROT 
6269 001403 BEQ 1$ 
30 012737 001600 001616 MOV #1600, @#NEXPAR 
é 3¢ 12700 000027 MOV #27,RO :SET SOB COUNT 
625 5 001 CLR R1 “SETUP INDEX 
6254 54 005061 001676 2$: CLR MTICKS(R1) “CLEAR TABLES 
6255 701 000002 ADD #2,R1 
56 077005 SOB R : CONTINUE 
625 012737 177777 001766 MOV #~1, @YMAPTBL - INITIALIZE MAP TABLE 
é 58 4 or 7? 177777 001770 MOV #~1- AMMAPTBL +2 
2 012700 000010 MOV #10.RO :SET SOB COUNT 
6260 01 002006 MOV #RPSHSTAT.R1 “GET ADDRESS OF HANDLER STAT 
5261 512 012721 000200 3$: MOV #200, (R1)+ ‘INITIALIZE STATUS TABLE 
626 31 3 SOB $ > CONT INUE 
626 Ng ? 001630 #60, @#SUBPASS s INIT SUBPASS TO ASCII 0 
626 5 4 700 057060 MOV #T IMEBUF ,RO T ADR OF TIME BUFIER 
65 5 12701 000012 MOV #12,R1 “SET SOB COUNT 
5266 536 112720 000060 4$: MOVB  #60.(RO)+ ‘INIT TIME BUFFER 
6267 542 077103 SOB RI 64S 
5268 544 105040 CLRB = = (RO) : INSERT TERMINATOR 
5265 346 11 000072 057063 MOVB #72,a#TIMEBUF +3 “INSERT COLON 
527 554 112737 000072 057066 MOVB #72. a#TIMEBUF +6 
6271 362 12737 000340 177776 MOV #546 avPs ::LOCK OUT ALL INTERRUPTS 
(1) 0045 706 001250 MOV #SCMTAG JRO :ZFIRST LOCATION TO BE CLEARED 
(1) Of 576 6 CLR (R6)+ >=CLEAR MEMORY LOCATION 
(1) 26 2 001310 CMP #STKS RO > DONE? 
(1) 0046C 4 BNE ;;LOOP BACK IF NO 
(1) BC 001200 MOV WSTACK, SP *:SETUP THE STACK POINTER 
(1) 004610 054456 000020 MOV #SSCOPE ,a#IOTVEC :#10T VECTOR FOR SCOPE ROUTINE 
(1) 004616 2 900340 9000¢2 MOV § #340,aM10TVEC+2 ;:LEVEL 7 
(1) 004624 7 054710 0000 MOV #SE awEMTVEC sem VECTOR FOR ERROR ROUTINE 
(1) 00463 7 0 000032 Mov #340. QWEMTVEC+2 ; :LEVEL 
(1) 0046 ? 7 000034 MOV ASTRAP, af TRAPVE FRAP VECTOR FOR TRAP CALLS 
(1) OC 7 0 000036 MOV #340, a#TRAPVEC+2; ie 
(1) OC 7 061206 000024 MOV HSPWRON, A#PWRVE C eter FAILURE VECTOR 
(1) 7 000340 000026 MOV #340 ,aWPWRVEC+2 ;;LEVEL 7 
(1) 767 041622 041612 MOV SENDCT,SEOPCT | ::SETUP END-OF-PROGRAM COUNTER 
(1) é 7? 1744746 CLR STIMES “INITIALIZE NUMBER OF ITERATIONS 
(1) 7? 174472 CLR SESCAPE ;:CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 706 112767 000001 174353 MOVB a  $ERMAX “ALLOW ONE ERROR PER TEST 
(1) 714 012767 004714 174336 MOV .$LPADR : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
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CEQKCE.P11 12 RO-BREAK REGISTER TEST SEQ 0053 
(1) 006722 012767 004722 174332 MOV #. .SLPERR ::SETUP THE ERROR LOOP ADDRESS 
=CLEAR PROGRAM INDICATORS 
527% 730 777 909100 174352 BIS #100, a$TKS :SET IE BIT IN KEYBOARD STATUS REG 
12737 354 000060 MOV #TKISR ,@#TKVEC “SETUP KEYBOARD VECTOR 
26 744 012737 900200 000062 MOV QA TKVEC+2 
138 12737 000064 MOV #TPISR,a#TPVEC 
5O78 760 012737 900200 000066 MOV #PR4, a#TPVEC+2 
6279 766 7 001 CLR @YNOT YPE :CLEAR "NO TYPING’ INDICATOR 
58 : THE BELOW ROUTINE ASCERTAINS WHICH CP & CP OPTIONS THE PROGRAM IS RUN- 
628 “NING ON AND SETS AN INDICATOR IN OPT.CP ACCORDINGLY. 
bok CPCHK: MOV WERRVEC+2 ,a#ERRVEC :SET UP ERROR TRAP TO RETURN 
528 MOV #2, @WERRVEC+2 
508 MOV #RESVEC +2, a#RESVEC :AND ALSO RESERVED INST TRAP 
5 OBE MOV #2, AARESVEC +2 
628 MOV #144006 ,R2 ;SET 11/70 NON-OPTION BITS 
5589 TSTF —RO ;WILL CLEAR CARRY IF 11/70 FLOATING POINT 
529 CFCC *IS AVAIL. COPY FLOATING CC'S INTO PSW 
625 BCS x3 : H IF NO FLOATING POINT 
525 a 81s #FPOPT ,R2 “SET FP OPTION AVAIL INDICATOR 
3 ; TST aFLKS “BRANCH IF NO KW11-L 
“: a gis #LKOPT ,R2 :SET OPTION INDICATOR 
28 TST asTPS :BRANCH IF NO CONSOLE TTY 
5295 BCS 9$ 
500 BIS ' #TTOPT,R2 
5301 9$ CLR R3 
53 74, 1 SEC 
5 3 7 7 170000 TST @FUBEDB :1S UBE1 THERE? 
550 1 103410 BCS 12$ : H IF NO 
5 30 104 105 037 170006 CLRB afUBE CR *]S THIS A TESTER OR EXERCISER? 
om 6 ¢ 70006 aFUBE 
530 114 100045 ;BRANCH IF TESTER 
6308 116 05 000200 16$ BIS #UBEOPT ,R2 *SET INDICATOR 
: 3 12$: SEC 
6311 1 7 170020 a @*UBEDB+20 :1S UBE2 THERE? 
le 132 103403 BCS 13$ : BRANCH 
13 i 01 703 000020 MO #20.R3 “SET OFFSET IN R3 
5315 14 13$: SEC 
16 144 7 170040 TST @FUBEDB+40 :]S UBE3 THERE? 
531 130 10340 BCS 14$ “BRANCH I 
5318 1 703 000040 Mo #40.R3 “PUT OFFSET IN R3 
5320 160 1 14$: SEC 
6321 1 7 170060 TST @FUBE DB +60 1S UBE4 THERE? 
5328 166 10 BCS 15$ *BRANCH IF NO 
632 1 012703 000060 MOV #60,R3 :PUT OFFSET IN R3 
632 176 750 BR 16$ 
6325 176 005227 177777 17$: INC #~1 
6326 202 001012 BNE 15$ 
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( 005204 012704 002340 MOV MUBETBL .R4 :GET ADDRESS OF UBE TABLE 
6328 005210 01 900005 MOV = #55 ;SET SOB COUN 
6329 005214 4 18$: ADD R3.(R4)+ “ADJUST UBE TABLE ENTRIES 
: x, 905216 = R5,18$ 3 CONT INUE 
. A. 4 
5332 005222 ROR = RB ADJUST OFFSET FOR UBE VECTOR 
533 0052: 4 ADD  —-R3,(R4)+ ADJUST UBEVEC ENTRY 
334 005206 14 ADD R3. (R4) “ADJUST UBEVEC PSW ENTRY 
5335 9052 3¢ 3 15$: CLR R3 : INIT R3 
6337 005 175116 TST MBIT TBL :1S MASS BUS TESTER THERE? 
6338 005240 103403 BCS 20$ “BRANCH IF NO 
6339 OC 702 002000 21$: BIS WMBTOPT .R2 *SET OPTION AVAILABLE 
> 5 . 
1 55C Gee 175132 20$: TST aMBTN2 :1S MBT2 THERE? 
10 ; BCS “BRANCH IF NO 
556 012703 000100 MOV #100,R3 “SETUP R3 
: 767 BR 21$ 
175120 22$: TST aMBIN3 :1S MBT3 THERE? 
‘ ‘ ea BCS :BRANCH IF NO 
é 72 91270 000200 MOV #200,R3 
5348 7é 761 BR 21$ 
6345 50¢ 009777 175106 23$: TST aMBTNG :1S MBT4 THERE? 
30 04 1 3427 BCS 30$ “BRANCH IF NO 
6351 % 012703 000300 MOV #300,R3 
32 12 000753 BR 21$ 
6 Ope 14 243: 
6354 14 000240 NOP 
ee = 
3$ 522 (01 Soe 002356 MOV #MBTTBL.R4 :GET ADDRESS OF MBT TABLE 
: 56 012705 1 MOV #11,R5 *SET SOB COUNT 
535 53 36% 25$: ADD R3, (R4)+ “ADJUST MBT TABLE 
34 0 5 SOB 25S * CONT INUE 
1 36 «060 002404 ADD R3.aeMBTTBL+26 :ADJUST DRIVE TYPE ADDRESS 
2 (17 000007 175020 MOVB #7.@MBTTBL+12 ;:SET UNIT NUMBER 
5 122777 000040 175026 CMPB 40sédw#G4,00,@MBTTBL+26 :IS THIS REALLY A MBT? 
56 0014 BEQ “BRANCH IF YES 
C 04270 002000 BIC #MBTOPT ,R2 “CLEAR OPTION AVAILABLE BIT 
6 64 01 064422 000004 30$:  # MOV WERPRT ,@#ERRVEC :RESTORE ERROR TRAP 
2 +: TEST FOR VARIOUS KB11 PROCESSORS *** 
6370 HIS ROUTINE POLES THE RESULTS OF ATTEMPTS TO SET TO ONE 
71 RCERTAIN CRITICAL BITS THAT ARE KNOWN TO BE OPERATIVE ON A KB11(M, 
::*0R KB11EM . IF TWO OUT OF FOUR OF THE TESTS ARE 
>: POSITIVE THEN KB11CM OR KB11EM FLAG IS SET IF LESS THAN TWO OF THE 
4 =: *TESTS ARE THEN THE KBi1E FLAG OR NO FLAG IS SET. THE DETERMINATION 
<@OF WHICH PAIR IS VALID IS BASED ON THE RESULTS OF EXECUTING AN MFPT OPCODE 
76 72 * (OPC ). JF THIS INSTRUCTION TRAPS THIS IS AN KB11CM OR 
77 ::*A PLAIN 1170 (KB11-B OR KB11-C). IF THE INSTRUCTION DOES NOT TRAP THEN 
78 >: *THIS IS A KB11-E OR KB11-EM. 
: ; 
6381 005372 104420 SAVREG :SAVE GPRS R5-RO 
6382 005374 105037 001554 CLRB @4KB11(M “RESET THe MP FLAG 
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CEQKCE P11 ICRO-BREAK REGISTER TEST SEQ 0055 
7 00155 CLR avxB11€ : CLEAR KBE AND KB11EM FLAGS 
7 005652 000010 MOV #MFPTTR  @#RESVEC :SET UP TRAP ADDRESS FOR MFPT AT RESERV VECTOR 
2 7 MFPT sEXECUTE MFPT. WILL TRAP ON 1170 (KB11B/C) OR 
[KB11CM (11/74 
BB 005414 012737 090001 001552 MOV #1, a#KB11E :HERE IF KBI1E OR KBI1EM. SET FLAG 
9 00542. 7 177750 11: CLR aeMAINT “CLEAR THE MAINTENANCE REGISTER 
0 005406 CLR R5 “RESET THE TEST COUNTER 
91 005430 01 177746 MOV #CONTRL ,RO “GET THE ADDRESS OF... 
92 005 1 177750 MOV #MAINT.R1 =CCR,MAINT,AND MAPHOO. 
9° 0" ' 1 170202 MOV eR2 AND PLACE IN RO-R2 
94 005 71 BIS WBIT14, (RO) : TRY 19 SET IVSS BIT 
95 00545C 1 BIT #B1T14. (RO) =DID IT SET? 
196 005454 00140 BEQ T2 *NO,GO TO NEXT TEST 
97 005456 040000 BIC #81714, (RO) “CLEAR IT. 
98 005 205 INC R5 -TEST IS POSITIVE 
99 OC 32 11 000001 12: BIS #B1T0, (R1) “SET EDMA IN MAINT REGISTER 
6400 9054 7C 711 000001 BIT #81T0.(R1) 
90547. 1410 BEQ 13 
10547 710 004000 BIS #81711, (RO) :TRY TO SET DMMA IN CCR 
ne 710 004000 BIT #81711. (RO) 
JV 140 BEQ T3 
o186 oC 310 205008 004000 BIC #B1T11, (RO) 
8.8 
ue 31 $7 000001 13: BIC #2110 QV :MAKE SURE EDMA IS CLEAR 
0055 767 100000 164550 BIS 113. KIPDRO :TRY TO SET BYP ON A PDR 
"i 3 032767 100000 164542 BIT Arie -KIPDRO 
6410 OC 1 BEQ 14 
6411 OC 767 100000 164532 BIC #81T15,KIPDRO 
ois JO e03 INC R5 
6413 OC 32 12 100000 14: BIS WB1T15, (R2) :TRY TO SET BYP ON UNIBUS MAP 
6414 005554 712 100000 BIT #81715, (R2) 
6415 OC 90140 BEQ T. END 
6416 ne 712 100000 BIC WBIT15, (R2) 
6417 OC 205 INC R5 
6418 oC 2705 000002 T.END: (CMP #2.,R5 :1S THE RESULT OF THE TEST >=2 
641 105574 1010 1 BHI 38 “BR IF NO.THIS IS A KB11E OR KB11-B/C (11/70) 
6421 9005 177746 CLR @*CONTRL 
6422 13701 177746 4$: MOV a*CONTRL .R1 
Sst HB Bale ae 
6425 ale 001373 ‘“ 4$ 
6 ei8 005737 001552 TST avkKB11E :1S IS A KB11-E OR KB11-EM? 
64 905622 001404 BEOQ 1$ :BR IF NEITHER. MUST BE KB11(M 
64 3¢ 4 012737 000400 001552 MOV WRIT8,a#KB11E  :SET UPPER BYTE (KB11-EM) 
64 05 BR 2$ : DONE 
rok ooee es 105237 001554 1$: INCB @#KB11(M “YES, FLAG THIS AS A MODIFIED PROCESSOR 
64 34 0 005737 001552 3$: TST a#KB11E *1S THIS A KB11E? 
6435 005644 001472 BEQ RESTORE “BR IF NOT. THIS IS AN 1170 
64 005646 10442 2$: RESREG “RESTORE R5-RO 
437 5650 00040 BR ENDKB “DONE DETERMINEING WHICH CPU 
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CEQKCE.P11  12=MAR MICRO-BREAK REGISTER TEST SEQ 0056 
6439 
52 MFPTIR: :HERE IF MFPT TRAPPED. SEE IF 1170 OR KB11(M 
6441 012716 005422 MOV #71, (SP) “SET UP RTI RETURN ADDRESS 
hug RTI * RETURN 
644 ENDKB: 
rere: ;SEE IF C1SP 1S PRESENT . TRY TO EXECUTE 3 CISP INSTRUCTIONS. IF TWO OUT 
G4b6 THE THREE DON'T TRAP, IT IS ASSUMED THAT THE CISP OPTION IS PRESENT AND 
644 “A FLAG IS SET TO INDICATE THIS. ALSO A BIT IS SET IN OPT.CP AND A MESSAGE 
6448 *[S PRINTED. 
43 
erat 052702 010000 BIS #CISOPT,R2 ;SET_CISP OPTION BIT FOR OPT.CP 
645¢ 1044 SAVREG 
645 01 000010 MOV #TRPRIN, @WRESVEC™ *SET UP TRAP ADDRESS AT RESERVED VECTOR 
6494 005674 105037 001555 CLRB  afCIsP T HOW MANY CIS OPCODES 
6455 O12 7 076020 006012 MOV WL2D0,aNCISOP  :CIS OPCODE TO TEST (LOAD 2 DESCRIPTORS aro) 
6496 1 001 : MOV ALD2PNT RO :RO MUST BE EVEN AND POINT TO A WORD WHICH IS ALSO EVEN 
64 712 004 00601 JSR PC a#C1SoP “TEST OPCODE FOR A TRAP 
6498 716 12 7 076061 006012 MOV #.3D1,a#CISOP :SET UP OPCODE FOR LOAD 3 DESCRIPTORS aR 
64 4 012701 001702 MOV #LD2PNT RI “LOAD R1 WITH EVEN WORD AND POINT TO EVEN CONTENTS 
6460 7 006012 JSR PC ,a#C1SOP -TEST OPCODE FOR TRAP 
6461 052737 100000 177770 BIS #81T15,a#UBREAK :SET MAINT MODE IN U-BREAK REGISTER 
6468 768 O12 7? 076601 006012 MOV WMED74C ,a#CISOP :OPCODE FOR DIAGNOSTIC ENTRY 
646 01 006600 MOV #CISTST.RS “ADDRESS OF DIAGNOSTIC U-CODE 
6464 754 004737 006012 JSR PC, a#C1SOP - TEST OPCODE FOR TRAP 
6465 760 1 422 RESREG “RESTORE R5-RO 
6466 762 122 000002 001555 (MPBso#'2, AWC ISP *IS RESULT >=2? 
646 101404 BLOS  1$ “BR IF CISP IS PRESENT 
105037 001555 CLRB  awcIsP = CLEAR CISP PRESENT FLAG 
776 042702 010000 BIC #CISOPT ,R2 [AND ALSO T.cP 
64 906002 042737 100000 177770 1S: BIC WBIT1S,a#UBREAK :CLEAR MAINT BIT IN U-BREAK REGISTER 
6471 10 000411 BR SE TOP “GO TO RESTORE VECTOR AND SET OPT.CP 
oirs 12 000000 CISOP: .WORD :CISP OPCODE WILL GO HERE FOR EXECUTION 
647% 14 03 NOTRAP “WILL COME HERE IF NO TRAP 
6475 1 012716 006030 TRPRTN: MOV #CISTRP.(SP) | :SET UP RTI RETURN ADDRESS 
$476 RTI “RETURN TO LOCATION FROM TRAP 
64 4 10 001555 NOTRAP: INCB aCISP ‘INCREMENT CISP INDICATOR 
6478 006030 000207 CISTRP: RTS PC *RE TURN 
6480 006032 104422 RESTOR: RESREG :RESTORE R5-RO 
1 906054 SETOP: 
012737 000010 MOV WRESERR.@ARESVEC:AND ALSO RESERVED INST TRAP 
2 010237 001550 R2, avOPT. iL -OAD INDICATOR 
6484 005227 177777 INC #1 FIRST TIME? 
(1) 5 1031 BNE 64$ H IF NO 
(1) 006054 022737 046652 000042 CMP ASENDAD , a42 ACen 
(1) 006062 001425 BEQ 64$ H IF YES 
(1) 104400 006072 TYPE ,65$ :3 TYPE ASCIZ STRING 
(1) Niet 000422 BR 64$ GET OVER THE ASCIZ 
(1) +:65$: .ASCIZ <CRLF>’'CEQKC-E...PDP 11/70 CPU EXERCISER’ <CRLF > 
(1) 006136 64$: 
6485 006136 005227 177777 INC 4-1 :FIRST TIME? 
6486 006142 001036 BNE 100$ “BR IF NO 
6487 006144 104400 071227 TYPE  .MSG34 -<15><12>CPU UNDER TEST FOUND TO BE A 
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CEQKCE .P11 12 ICRO-BREAK REGISTER TEST SEQ 0057 
001552 TST @FKB11E :I1S THIS A KB11-E OR KB11-EM? 
BNE 101$ :BR IF EITHER ONE 
001554 TSTB #@#KB11CM “IS IT A 11/74 (KB11(M) 
BNE 1$ -BR IF IT IS 
071267 TYPE MSG35 :KB11-B/C<15><12> 
BR 100$ =SKIP OTHER MESSA 
071175 1$: TYPE MSG32 =11/74 (KB110M)<15><12> 
BR j “SKIP CISP MESSAGE 
001552 101$: TSTB $$ @#KBI11E “IS IT A KB11-E? 
BEQ 102$ :BR IF NOT. MUST BE KB11-EM 
071302 TYPE MS *KB11-E<15><12> 
BR 104$ *SKIP KB11-EM MESSAGE 
071163 102$: TYPE ,MSG31 :KB11-EM<15><12> 
173331 104$:  TSTB CISP :1S CISP PRESENT? 
BNE 103$ :BR IF CISP PRESENT 
071313 TYPE ,MSG37 :CISP OPTION NOT FOUND<15><12> 
BR 100$ *SKIP OTHE SSAGE 
071343 1038: TYPE .MSG38 *CISP OPTION FOUND<15><12> 
) 006246 TYPE 678 :¢TYPE ASCIZ STRING 
) BR T OVER THE ASCIZ 
i678: .ASCIZ <15><12>/PROCESSOR ID REGISTER =/ 
6507 506 013746 177764 MOV @#177764,-(SP) 3 ;SAVE @#177764 FOR TYPEOUT 
(1) 906 104402 TYPOC :GO TYPE--0C TAL ASCII CALL DIGITS) 
6508 104400 006314 TYPE ,69$ *: TYPE ASCIZ S$ 
(1) 006312 000406 BR 68$ ::GET OVER THE NSC 
4) igo -ASCIZ / (OCTAL) / 
6509 oes 013746 177764 MOV @4177764,-(SP) SAVE 94177764 FOR TYPEOUT 
(1) 104410 TYPDS GO TYPE--DECIMAL ASCII WITH SIGN 
6510 104400 006344 TYPE 71$ 2: TYPE ASCIZ STRING 
(1) 2 000406 BR 0$ T OVER THE ASCIZ 
(1) ee 5g218: -ASCIZ / (DECIMAL) / 
6511 006 104400 001407 TYPE ,SCRLF 
6216 PETTITT tittt tii tiiitiiiiiiiiiitiiiiiitii titi 
651 * SBTTL SYSTEM SIZER 
6514 : THIS ROUTINE DETERMINES WHAT DRIVES ARE AVAILABLE ON 
6515 : THE FOLLOWING DEVICES: RKOS D RSO4. THE 
6516 : INF ORMAT ION IS STORED IN THE TABLE *SYSSIZE ‘IN THE FOLLOWING FORMAT: 
6517 : EACH DEVICE is ASSIGNED A WORD 
6518 : 8 THE LOW BYTE OF THIS WORD INDICATES WHICH DRIVES ARE AVAILABLE 
6519 : C. THE HIGH BYTE INDICATES WHICH DRIVES HAVE BEEN USED 
65 : BY THE RELOCATION ROUTINE. 
65 1 5 LER EREAAERAEREREAEEEEEEEEREKREEEKEARAERAEREERERAEARERERERAEEREREERR ER 
63¢¢ 364 012737 006476 000004 SIZE: MOV #21$, a#ERRVEC sSETUP TIMEOUT VECTOR 
65 2 005037 001352 CLR av$TMPO “ENSURE $TMPO CLEAR 
6524 76 005 CLR RO ;USED TO SET THE UNIT AVAIL BITS 
6525 90 F- 1 000010 MOV #10,R1 : COUNT 
6 O06* 13777 001352 173632 9S: MOV @#$TMPO,ARKDA :SET UNIT NUMBER 
6 ie ee? 000015 173616 MOV #15, aRKCS -SEND DRIVE RESET 
65 906% 777 000200 173606 BIT #B1T7,aRKER NON EXISTANT DISK? 
65 6 001011 BNE 7$ “BRANCH 
6530 006430 017702 173576 MOV ARKDS _R2 -GET BRINE STATUS 
6531 006434 042702 177537 BIC #1775 37 ,R2 “GET BITS 5 & 7 ONLY 
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6532 006440 
65 
65 
6535 5 
65 54 
65 
65 
6539 006472 
6540 
6541 
654 
654 
6544 
6545 
6546 
6547 006476 
6548 006504 
6549 
6550 006510 
6551 006516 
6552 006522 
655 
6554 
6555 
0328 006524 
6557 0065 
6558 006 
6559 006542 
6560 546 
$e) Ss 
ses Sass 
$s Ber 
e567 57 
a 
65 1 
an sa 
se Sse 
6574 
on 
5 
6578 ° 
6579 
6 
6581 54 
6 
6 
6 72 
6 76 
6586 702 
6587 006704 
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mr 
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Lv) 
NN 
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33 
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oO — 
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N 
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38 
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re 
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007104 
176710 


778380 


006626 
000001 


000010 
001352 
173434 
000400 
173406 
037777 
140000 
000400 
001712 


007104 
001352 


go0018 
1352 
21 
01 
173372 
001000 


006712 


173554 
001352 
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SYSTEM SIZER 
CMP #200,R2 :1S DRIVE READY? 
BNE 7$ : CH IF NO 

- BIS #B1T8.RO “SET UNIT AVAILABLE 

MOV #1 ARKCS :CLEAR THE ERRORS 

ADD #20000, a#’$TMPO ;SELECT NEXT UNIT 
SOB R1 : CONT INUE 
MOVB RO, a#SYSSIZE+2 “STORE IN TABLE 


EAA RERAAEAAEEKEAAEEEERERAAEARAKAARAAAEKEAEAERREAAARAREEKREAREKRHEKEEE 


ZF 


21$: MOV 


TST 


MOV 
TST 
e+ BR 


3$: 


4$: 


6$: 


5$: MOVB 


108: MOV 


14$: 


“THIS oe DETERMINES IF THERE IS AN RPO3 OR 

H ARE ON THE 

“ADDRESSES IN THE TABLE IN 
""100$"". 


SYSTEM, THE OPERATOR must CHANGE THE RPOS 
"COMMON TAGS'' AND ‘NOP’ THE 


#11$, a#ERRVEC :SET THE ERROR VECTOR 
a#176710 *1S THERE AN RP ON THE SYSTEM? 
“STAY HERE IF YES 
#1$, a#ERRVEC 
@RP4CS1 ;1S THERE AN RPOG ON_ SYSTEM? 
eeerrritiiitii titi ii iti itiiiiiiiiiiiiiitt titi it i iite 
REAR RAERAAKAEAARAEARAARAEEAAAAEEAAARKEKCKAKAARAKAKAAAKAARAAERAREARAERAAAEREE 
#10$, aVERRVEC ;SETUP TIMEOUT VEC FOR RPOS TEST 
#1, akSTMPO TUP TEMPO 
RO” USED TO SET UNIT AVAILABLE BITS 
#10.R1 COUNT 
a*STMPO, aRP3CS “SET FUNCTION IDLE WITH UNIT NO 
@RPSCS “WAS THERE AN ERROR? 
: H IF wD 
RO “UNIT NOT AVAILABLE 
#400, a#STMPO “SELECT NEXT UNIT 
R1,3$ > CONT INUE 
@RP3DS .R2 :GET STATUS REGISTER 
#37777, R2 *GET BITS 14, 15 ONLY 
140000 ,.R2 [1S DRIVE READY? 
‘s “BRANCH IF NO 
#B1TB,RO *SET DRIVE AVAILABLE BIT 
: CONTINUE 
RO. a#SYSSIZE -STORE IN TABLE 
—REKRAAAEAKEAAERERAKAAAEAEAAEAAEEARAAAARAARAKEEAEKRARERAEARERAARREREAEERER 
#11$, A#ERRVEC :SETUP ERROR VEC FOR RPO4 TEST 
avSTMPO 
RO [UNIT AVAILABLE WORD 
#10,R1 5 T 
QvSTMPO, aRP4CS2 -SET UNIT NUMBER 
#21 aRP4CS1 > TRY READ-IN-PRESET 
#81712, aRP4CS2 “NON EXISTANT DRIVE? 
12$ “BRANCH IF YES 
ARP4DS .R2 *GET DRIVE STATUS 
#8179, R2 :1S DRIVE IN PROGRAMMABLE MODE ? 


8 : 
,65$ 73 TYPE ASCIZ STRING 


SEQ 0058 
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900410 


2700 


er 
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122737 
001 
042737 
20 
113700 


042700 
000241 


3518 
“ 
Ses 
000403 
042760 


001352 
006746 


163277 
010500 


000400 
001352 


177546 
001722 


007214 
001352 
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00000 

010000 
173154 
163577 
010200 
000400 
000040 
001352 
001724 


000002 
000001 


000041 
177770 


000002 
000001 
000001 
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173200 


173122 


000041 
001714 


001712 
001716 
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SYSTEM SIZER 


SEQ 0059 


OVER THE ASCIZ 


SAVE @#$TMPO FOR TYPEOUT 
‘20 TYPE=-OCTAL ASCII‘ALL DIGITS) 
ooh ASCIZ STRING 
3zGET OVER THE ASCIZ 
/ FOUND IN PROGRAMMABLE MODE-DRIVE WILL NOT BE USED/<15><12> 


:;GET BITS 12, 11, 8, & 6 OMY 


71S DRIVE READY 


;BRANCH IF NO 
;SET UNIT AVAILABLE 


;CLEAR ERROR BITS 
:SELECT NEXT DRIVE 


;STORE IN TABLE 


WOR PRARBERBARASLASASLLL LALLA ALARLARAARARRARARAA ARRAS AAS AAAS RARR RRA AAAS SS | 


aR 64$ GET 
al eASCIZ <15><12>/RPO04 DRIVE a/ 
MOV aF*$TMPO,- (SP) 
TYPOC 
TYPE ,67$ 
BR 
::67$: .ASCIZ 
66$: 
AR 12$ 
8$: BIC #163277,R2 
CMP #10500,R2 
BNE 12 
BIS #81T8,RO 
12$: ROR R 
BIS #BITS ,-ARP4CS2 
INC av$ TMPO 
DEC R1 
BEQ .+6 
JMP 14$ 
MOVB RO, a#SYSSIZE+10 
11$: MOV #15$. a#ERRVEC 
CLR a¥$TMPO 
CLR RO 
MOV #10,R1 
18$: MOVB aS TMPO,aRSCS2 
MOV #1 ,aRSCS1 
BIT #B1T12,aRSCS2 
BNE 16$ 
MOV @RSDS,R2 
BIC #163577,R2 
CMP #10200 ,R2 
BNE 16$ 
BIS #BITB.RO 
16$: ROR 
BIS WBITS ,ARSCS2 
INC av¥$ TMPO 
SOB R1,18$ 
RO, a#SYSSIZE+12 
“NEXT, DELETE XXDP UNIT O FROM TABLE 
15$: CMPB 42,0441 
BNE 1 
BIC #BITO,a#SYSSIZE+2 
BR 20$ 
19$: MOVS a#41,R0 
BIC #177770,RO 
CLC 
ROL RO 
CMPB #2,R0 
BLT 40 
aN #BITO,AMSYSSIZE 
40$: BIC #BITO.SYSSIZE+4(RO) 


; SETUP ERROR VEC FOR RSO4 TEST 


;SOB COUNT 


7SET UNIT NUMBER 


; TRY NOP OPERATION 
;NON EXISTANT DRIVE? 

H IF ti 
“GET DRIVE. § ATUS 
:GET BITS 2 Lf 
:IS DRIVE RE 


& 7 ONLY 


;BRANCH IF xO 
:SET DRIVE AVAILABLE BIT 


CLEAR ANY ERROR BITS 
SELECT NEXT UNIT 


; CONT INUE 
:STORE IN TABLE 


RK? 


;BRANCH IF NO 
sMAKE UNIT ZERO NOT AVAILABLE 


;GET LOCATION 4 

:GET “it SiG 3 BITS 
sENSURE C CLEAR 

; ADJUST 


“BRANCH IF NO 


SEE RR 
rh 


SERRE ERS ee 


eS: -5 
KASLIONVLS 


wi 
wi 


SEFSESS ~~ 
CELE 


g 


PERSE 


: 


SCOBERERER SSSSSRSSSSERES 


aa 
MIWWS 


See 
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P11 OMAR SYSTEM SIZER SEQ 0060 
74 ae? 177777 20S: INC #-1 
1057 BNE LOOP 1 : BRANCH IF NOT FIRST TIME 
083647 TYPE »MSG25 
0137 1550 MOV aVOPT .CP,-(SP) 
12 1 TYPOC 
14=«&W 001407 TYPE ,SCRLF 
001602 TST avov 3ACT11? 
4 13 BNE LOOP1 :BRANCH IF YES 
1 003641 50$: TSTB @AxXXDPC :XXDP CHAIN MODE? 
ORI Os BNE LOOP 1 : ;BRANCH IF YES 
1 001250 TSTB aVvSPASs sFIRST PASS? 
1937 BNE LOOP1 : ;BRANCH 
000200 171674 BIT #SW7 , aSSWRP : INHIBIT SIZE TYPEOUT? 
1031 BNE S ; ;BRANCH IF YES 
S52 004767 047514 JSR PC. TYPSIZ :GO TYPE SYSTEM SIZE 
56 104400 007364 TYPE 69S i: TYPE ASCIZ STRING 
000417 BR 68$ ::GET OVER THE ASCIZ 
7422 jie? .ASCIZ /TYPE A CHARACTER TO CONTINUE/<CRLF > 
o074 2 site tf 177776 te aPSwW 
0074 0001 37 O06 56% JMP @#SIZE :GO CHECK SYSTEM AGAIN 
0074 104400 070651 SW8MSG: TYPE ,MSG30 : TYPE SWITCH 8 REVERSAL MESSAGE 
007440 000167 0003534 ert JMP LOOP 


;PROGRAM RESTARTS HERE AFTER RELOCATION ABOVE 28K IS COMPLETE. 
: INITIALIZE TRAP VECTORS 
LOOP: MOV AMSUPSTK , SP :SET THE STACK...WILL BE DIFFERENT 


010000 012706 000700 
; THAN KERN STACK WHEN IN OUTER MODE 


010004 012700 000004 MOV #ERRVEC,RO 
010010 013701 177776 MOV avPsw.Ri :GET CURRENT PSW 
010014 012720 064422 MOV #ERPRT, (RO) + “SET E 
01 052701 000340 BIS #PR7 RI -SET PRIORITY 7 IN CURRENT PSW 
010024 042701 000020 BIC #BIT4,RI “CLEAR T BIT 
010030 0101 MOV R1, (RO) + 
10032 O12 064350 MOV #RESERR, (RO)+ :SET RESERVED INST TRAP VECTOR 
1 0101 MOV R1, (RO)+ 
10040 O12 001570 MOV #SRTRN, (RO) + -SET T BIT VEC 
1 701 000340 BIC #PR7 RI 
10050 9050 CLR (RO) + :SET TBIT VEC+2 
10052 005 TST (RO) + *BUMP RO TO SCOPE VEC+2 
10054 0050 CLR (RO) + “SET SCOPE VEC+2 
10056 700 000006 ADD #6,RO *SET RO TO ERROR TRAP VEC 
1 012720 000340 MOV #PR7, (RO) + “SET ERROR VEC 
1 4 7 TST (RO) + 
1 12720 000340 MOV #PR7, (RO)+ :SET TRAP VEC+2 
10074 012737 063616 000114 MOV #.PARSRV, a#CACHVEC “SET PARITY ERROR VECTOR 
10102 052701 000340 BIS RI 
010106 010137 000116 MOV R1, @#CACHVEC+2 
010112 012737 064254 000250 MOV #KTABRT, :SET KT11 ABORT VECTOR 
010120 010137 00025 MOV R1, aaMMVEC+2 
010124 042737 000340 177776 BIC #PR7 , @APSW 3 
SURE AERA RERREREREEERERE RARER AKEARERARRAEAAERARAE RA ERE REE RES 
“*TEST 1 MEMORY VERIFICATION TEST 


SERA AAA ERAA AERA REAR AERERARRERAEEEARARERAE RRS R TREK E EE ES 


CEQKC~E 


CEQKCE .P1 


OO om 
Sosas 
oe 


ee ee ee et ee ee ee ee ee ee ee er 


et ate te hae te et ee ee ee et 
ee ed ee ee ed et eed od od 


CE es ee ee ee ee 


a ee eS eS es eh ee ee, ee Se | 
ee ae ee a ee ee ee ee a ee ee ee a ee ee ee eee eee ee eA 





Ww 


76 
0404 


8 
my 
8 
8 
a 
177777 
ne 
sa 
at 
m8 
m8 


RRRRRKKK 
poets 


— 2 Sos rs ss ss SS 
te 
on 
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Scsc 
3 
S 


2 
Bits 


$ 


R235 
=! CR 3 
San 


gs 
28 


8 
2 


NES 


™N 
™N 
™N 
™N 
™N 


000001 


9007 
000000 
199777 
000000 
99777 
000000 
99777 
000000 
97777 
000000 


— 
N 


171236 


001252 
177570 


001262 
001260 


177777 
060000 


177777 
000000 


177777 
000000 
177777 
000000 
177777 
000000 
177777 
000000 
177777 
000000 
177777 
000000 
177777 
000000 
177777 
000000 
177777 
000000 


177777 
000000 


J3ER MACY11 ape tee) 


TST1: 


RELO: 


12-MAR-80 11:30 


J. 5 
PAGE 47-36 


MEMORY VERIFICATION TEST 


MOV 
SCOPE 
MOVB 
MOV 


#1, STIMES ::DO 1 ITERATION 
#1 aaSTSTNM :LOAD TEST NUMBER 
av$TSTNM, a#DISPLAY *:DISPLAY TEST NUMBER 


-SBTTL START OF SECTION 0 
ie FF ees TO BE RELOCATED 000000000 


;GET PC 
;RO CONTAINS THE ADDRESS OF RELO 


TST -(RO) 

MOV RO, @#FRSTAD 7 SAVE 

MOV PC,RO ;GET CURRENT PC 

SUB #. RO ; SUBTRACT RELOCATION FACTOR 

MOV RO, a@#F ACTOR ;SAVE RELOCATION FACTOR 

MOV PC ,@#SLPERR :SET LOOP ADDRESS 

ADD #30 ,AASLPERR ; ADJUST 

MOV @4SLPERR ,@#SLP 

in — ;BR IF TEST CODE TO BE EXECUTED 
.* 

JMP RELEO 

= DISK (IF SELECTED) VERIFICATION TEST. 

«WORD <-1,-1,-1,-1,0,0.0,0 

-WORD <-1,-1,-1,7-1,0,0.0,0 

-WORD -1,-1,-1,-1,0,0,0,0 

«WORD <-1,-1,-1,7-1,0,0,0.0 

«WORD <-1,-1.-1,-1,0.0.0.0 

«WORD <-1,-1,-1,-1,0,0.,0.0 

-WORD <-1,-1,-1,71,0.0.0.0 

. WORD -1,-1 owl owl ,0.0,0,0 

-WORD <-1,-1,-1,-1,0,0,0,0 

-WORD <-1,-1,-1,-1,0,0.0.0 

-WORD <-1,-1,-1,7-1,0.0,0.0 

. WORD -1,-1,-°1,-1 0.0.0.0 


SEQ 0061 


5 
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ee i 


START OF SECTION 


R MACY11 30A(1052) 


USSF 


11/70 CPU 
12-MAR 


QKC-E 
QKCE .P11 


cE 
cE 


:GO RELOCATE PROGRAM CODE 


=1,°1,-1,°1.0,0.0.0 
-1,-1,-1,-1,0.0,0,0 
-1,-1,-1,°1,0.0,0.0 
=1,°1,-1,-1.0.0.0,0 
=1,°1,-1,°1,0,.0.0,0 
-1,-1,-1,-1.,0.0.0.0 
-1,-1,°1,°1,0.0.0,0 
#1,=1,°1,°1.0,0.0.0 
=1,-1,-1,-1,0.0.0.0 
-1,-1,-1,-1,0.0.0.0 
-1,-1,-1,-1,0.0.0.0 
=1,°1,-1,-1,0.0.0.0 
-1,-1,-1.,-1.0.0.0.0 
-1.=1,-1,-1.0,0.0.0 
=1,-1,-1,~1 0.00.0 
-1,-1,°1,°1,0.0,0.0 


-1,-1,-1,-1.0,0 


WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
. WORD 
WORD 
. WORD 
- WORD 
- WORD 
WORD 
WORD 
sore 
ee 


177777 
7777 
177777 
177777 
777 
7777 


PERE SSSSSSESSSS 
SIAC 
as So So Ss SS SS SS SV SS SS SESS SSS SS SS 


ARIA ENS oSIS IOS ECCS ORASI ARERR SS SARI OREN ES MLAS IANARY 


COOOCCVCOCOCOCOCOCOCOC RK KK KK KKK eK KK Ke KKK Ke Keer eee 
\ el eel cel cel cel el cel el cel ch el cee el cee ee ee ee ee eR en ee eed wee ee oe oe ook ook ool ok ok ot or ee el el lh eel cel ee el cel 


COOCOSOSOCOOOOSOOOSSOSOOSSOOSSOOSOSOSOSOSOOSOSSOOSSOSSSSSOOSSSOSSSSSSOSSSSSS 


044042 


i et el ce ee ce el ee eee el ee el ee eh ee ee el cl ee el el el ee el ee ee oe ee ol eel el el el el el el ee el © rr 


= 
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011166 000000 RELOO:  .WORD 


; 


Ww 


~~ 


LBL LEER BFF BBO OOD PRL LO 


me ee ed aed = 0.) od ow) od) = 
ee ee ee et ee et ee et ee ee et ye te ee ee 


S355 
Oooo0c0o0° OOOOCOooo00 DBDOCOOOCOOCOCOCOO.)S 


—_— od wd 3 = 2 3 =. = = — 2 <2 «3 «dd od. = od) 


eed etd od od 2) ed ets dw) ws =) 


sésssacss 


: 


AAAOAAOO 
YY 

— a —e 
NOU SW O 


me etd etd ed 


0 
:0000000000000 LAST ADDRESS OF CODE TO BE RELOCATED 00000000000 


OR RARESSGSALALSZAALLSSLALLERE SEARLE RRS E ARRAS R RRR RRR RRR RRR AAR RRA RASA SS SE 


=*TEST 2 CHECK BRANCH INSTRUCTIONS 
FL AAAAAAAAAAARERAEARAERAAAREAAAREAARRARARRAREARARAARAERRERRAERRRERS 
170 012767 000001 170200 MOV #1, STIMES :;DO 1 ITERATION 
176 TST2: SCOPE 
200 112737 900002 001252 MOVB #2,a#$TST :LOAD TEST NUMBER 
013737 001252 177570 MOV Sets TNA, SADISPLAY * ;DISPLAY TEST NUMBER 


-SBTTL START OF SECTION 1 
aati FIRST ADDRESS TO BE RELOCATED 111111117 
010700 REL1: MOV PC,RO 
005740 TST -(RO) :RO CONTAINS THE ADDRESS OF REL1 
010037 001619 MOV RO, @#FRSTAD V 
MOV PC.RO :GET CURRENT PC 





14 
16 
4 N 
1 0112246 SUB #.,RO * SUBTRACT mh yeae ON FACTOR 
01 7 001604 MOV > SAVE RELOCATION FACTOR 
010737 001262 MOV ;SET LOOP ADDRESS 
$6 re 000030 001262 ADD : ST 
013737 001262 001260 
105737 001600 TSTB sBR IF TEST CODE TO SE EXECUTED 
001402 BEQ 
000167 004146 JMP 
270 257 ccc :CC*S=0000 
72 103407 BCS cco :SAME AS BLO 
74 102406 BVS cco 
76 001405 Q cco 
04 BM! cco 
002403 BLT cco 
02 BLE cco 
101401 BLOS cco 
10 101001 BHI +4 
12 104000 cco: HLT sONE OF THE ABOVE BRANCHES FAILED 
: CONTINUE 
314 000270 SEN :CC'S=1000 
316 100003 BPL CC1 
iste CC1 
1 BGT CC1 
4 002401 BLT +4 
104 CCl: HLT sONE OF THE ABOVE BRANCHES FAILED 
; CONTINUE 
3 000262 :CC*S=1010 
102003 BYC CC2 
402 BLT CC2 
01 E CC2 
340 2001 BGE 2 +4 
342 104000 CC2: HLT :ERROR! ONE OF THE ABOVE BRANCHES FAILED 
; CONT INUE 


011344 000261 SEC :CC*'S=1011 


CEOKCE. 


APAAPAAAAAAAAAG 
SaiseSsyy 


elie te at i | 
BUCO 


PDP 11 


P11 


1 

11 

11 
1354 


Bee 
&n 


ad and wd 
NO 


ROSEN SKRVSH 


*& ne 
FON 


SESSa ANSSER 


SOOOCOCOCO COOOCCOOCOSO COOCOCOCOCOCSoO COoCOoooOoCoeoO Ooo 


ee eed eed eed eed od ee ee eed eed aed nd ed ed oD ed eed eed eed eed on od od ee eed ed ed od od) oe =) — ss 
ee eed eed eed eed od ee eed a ed ow ed =) = de od et od os = ed aed od wd) = - —_ — 2d 


Vi 
_ 
So 


ue 


XER 
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START OF SECTION 1 


BCC cc3 

BHI cc3 

BGT +4 
cc3 HLT ;ERROR! ONE OF THE ABOVE BRANCHES FAILED 
; CONT INUE 

EZ 3CC*S=1111 
CC4 

BGT CC4 

BHI CC4 

BLE + 
CC4: T ;ERROR! ONE OF THE ABOVE BRANCHES FAILED 


MOR PPESESASAASALSLLESELSE SALAS ESSE SERRA RAR ARR ARR ARAL RRA READS SAS S| 


TEST 3 TEST UNIARY CONDITION CODES 


5 RARER REREREEREEAEEKEREREEREAREEREAERERARERERER AREER 


TST3: SCOPE 


MOVB #3,a4$TSTNM :LOAD TEST NUMBER 
MOV av$TSTNM, a#D1 SPLAY * DISPLAY TEST NUMBER 
sCLR RO 
SCC 
CLZ 
CLR RO :RO=0,CC'S=0100 
BCS CLRO 
BVS CLRO 
CLRO 
BMI CLRO 
BLE +4 
CLRO: HLT :ERROR! INCORRECT CC'S AFTER CLR 
SCC 
CLZ 
TST RO :RO=0,CC'S=0100 
BCS TSTO 
BVS TSTO 
TSTO 
I TSTO 
BLOS .44 
TSTO: HLT sERROR! INCORRECT CC'S AFTER TST 
C 
+SEZ!SEV 
RO :RO=-1,CC'S=1001 
BCC COMO 
BVS COMO 
COMO 
COMO 
BLT +4 
COMO: HLT :ERROR! INCORRECT CC'S AFTER COM 
SEC 
ADC RO -RO=000000, CC 'S=0101 
BCC ADCO 
BVS ADCO 
ADCO 
BGE +6 


SEQ 0064 


CEQKC-E PDP 11/70 CPU EXERCISER MACY11 30A(1052) 
Uap itso? T3 


CEQKCE .P11 12-MAR 
6778 011512 104000 
6779 
6 11514 1 
6781 01151 
oe Bes 
6 18 4 203 
6785 Ate 1 
6 11 1 
6 11 1 
6 1 
6 1 4c 
6 BE 93" 

6791 011542 103004 
6 11544 102003 
679 11546. 001402 
6794 0115 100401 
6795 on ger 003401 
° 11554 104000 
6798 011556 57 
SS sss sate 
6800 011562 103404 
6801 011564 102003 
one 011298 001402 
0115 to 
6804 SEIS, 003001 
6805 011574 104000 
e807 011576 000277 
011600 000242 
6809 ars 005400 
6810 011604 103003 
6811 ay ess 102002 
onié aries 001401 
681 11612 2001 
ests 011614 104000 
1 11616 000261 
19 11 $00 
18 011622 10 
SS Ses 1a 
1 0116 700401 
¢ 0116 101401 
Z 011634 104000 
5 or 16% 006100 
11640 103402 
011642 003401 
8 011644 002001 
ra 011646 104000 
6831 011650 
6832 011652 1035003 
6835 011654 102002 


ADCO: 


DECO: 


INCO: 


NEGO: 


ASLO: 


ROLO: 


12-MAR~80 
TEST UNIARY CONDITION CODES 


HLT 


N 5 
11:30 PAGE 47-40 


ERROR! INCORRECT CC°S AFTER ADC 


;RO=100000,CC'S=1010 


;ERROR! INCORRECT CC‘°S AFTER ROR 


3RO=077777,CC'S=0011 


ERROR! INCORRECT CC'S AFTER DEC 


;RO=100000,CC *S=1010 


;ERROR! INCORRECT CC°S AFTER INC 


:RO=100000,CC'S=1011 


sERROR! INCORRECT CC'S AFTER NEG 


;R0=000000,CC"S=0111 
;ERROR! INCORRECT CC'S AFTER ASL 
:RO=000001 .CC*S=0000 


sERROR! INCORRECT CC°S AFTER ROL 
;RO=000000, CC *S=0111 


B 6 
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CEQKCE .P17 1D oMART BD 1: 13 TEST UNIARY CONDITION CODES SEQ 0066 
0116 1001 BNE ASRO 
5 a. 401 BLT +6 
1 1 ASRO: HLT sERROR! INCORRECT CC'S AFTER ASR 
11664 77 SCC 
11 SBC RO :RO=-1,CC'S=1001 
116 BCC SBCO 
1 011672 102401 BVS SBCO 
4 11674 1 BLE ~ +4 
11676 982000 SBCO: HLT :ERROR! INCORRECT CC'S AFTER SBC 
5 or NEG RO ;RO=000001 .CC*$=00001 
11 SWAB ~—SséRO =R0=000400° .CC'*S=0100 
011 103403 BCS SWABO 
011 706 102402 BVS SWABO 
g3 Sine Sau s 
* 
$1 011714 104000 SwABO: HLT sERROR! INCORRECT CC'S AFTER SWAB 
2 ereerrerrttiiiiiiiiitiitiiiiiiittiitiiittsetitiiitiit iii iiss 
3) “*aTEST 4 CHECK REGISTER SELECTION 
( ) ETT iti ti ti iiiiietitiititititiiittt tite tii tiie 
(2) 
(2) 011716 TST4: SCOPE 
(2) 011 Me 7 001252 MOVB #4, a0STSTNM LOAD TEST NUMBER 
(2) or 013737 001252 177570 MOV av$TSTNM,a#DISPLAY «DISPLAY TEST NUMBER 
68 3 011 012737 000005 001376 MOV #5 aaSTIMES :SET ITERATION COUNT TO 5 
54 011742 CLR RO” 
See ies aero a po 
3S oH 1 MOV RO.R2 
3 int oi oe 
6860 011 006303 ASL RS :R3=4 
6861 011760 01 304 MOV R3,R4 
S86 117 ASL RS =R4=10 
11764 01 MOV R4.RS 
117 5 ASL :R5=20 
11 10546 MOV R5,-(SP) “SET BITS SET IN REGISTERS 
11 16 BIS RG, (SP) * INTO STACK ADDRESS 
011774 050316 BIS R3, ( 
11776 990216 BIS R2, (SP) 
1 16 BIS RO. (SP) 
1 2 000037 CMP #37, (SP)+ 
1 1401 BEQ +4 :WERE SET 
012010 1 HLT “MISSING BIT(S) REPRESENT 
* INCORRECT REGISTER SELECTION 
:CHECK THAT ALL BITS CAN BE SET & CLEARED IN ALL REGISTERS 
012012 000257 CCC 
12014 112 000377 MOV. $ #377.RO :SET ALL BITS (MOVB EXTENDS SIGN) 
1 006100 1$: ROL RO “ROTATE A 0 THROUGH ALL BIT 
12022 103776 BCS 1$ =POS! TIONS 
or 200 INC RO -FINAL RESULT IS -1 
1 1401 BEQ +4 
01 104000 HLT = ERROR! 





C 6 
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CEQKCE .P11 CHE CK REGISTER SELECTION SEQ 0067 
6884 oie MOV #16. ,R0 ;SET SHIFT COUNT 
8 OI fa 2$ a 
1 ROR R2 sROTATE 1 THROUGH ALL BIT POSITS 
1 DEC RO sDECREMENT SHIFT COUNT 
1 1374 BNE 2$ 
01 005102 COM R2 sR2 SHOULD CONTAIN -1 
4, 001401 BEQ +4 
1 104000 HLT sERROR! CHECK R2 SHOULD = 0 
01 O12 708 100000 MOV #100000 ,R3 
01 ones? 3$: ASR R3 sEXTEND 1 BIT THROUGH ALL POSITIONS 
01 103376 BCC 3$ 
01 INC R3 
1 001401 +4 
12072 HLT zs ERROR! 
6901 4 74 112704 1776401 MOVB #177401,R4 sR4=1 
one 12100 04 4S: ADD R4,R4 ; HAS THE AFFECT OF SHIFTING A BIT 
690353 012102 103376 BCC 4$ * THROUGH ALL POSITIONS 
6906 0121 005704 TST R4 “RESULT SHOULD BE 0 
6905 0121 001401 BEQ +4 
ore 012110 104000 HLT 
690 
6908 012112 012705 000001 MOV #1,R5 
6909 012116 00630> S$: ASL R5 
6910 0121 102376 BVC 5$ 
6911 012122 5 L R5 
ote 012124 103002 BCC 6$ 
6913 0121 005705 TST RS 
6914 af 001401 BEQ +4 
eae 0121 6$: HLT 
6917 sCHECK REGISTER VOLITILITY 
6918 01 it 9 005002 CLR R2 
6919 0121 Boa IOs COM R2 :R2=-1 
4 140 Oj MOV R2,R3 
1 12142 CCC 
§ 012144 ROR sR2=LOOP COUNT 
0121 ASR Re 
121 01 7$: MOV R3,R4 
12152 005 3 DEC R2 :DECREMENT LOOP COUNT 
121 001 BNE 
121 005203 INC R3 s CHECK R3 
121 i BNE 8$ 
121 INC RS s CHECK RG 
12164 001401 BEQ +4 
12166 104000 8$: HLT 
>CHECK TRANSFER OF REGISTER DATA BETWEEN THE GS AND GD REGISTERS 
12170 032737 000020 177776 GSTST: BIT #20, a4PSW :CHECK IF ‘T*® BIT IS SET 
12176 001050 BNE 7$ * SKIP TEST IF ‘T* BIT SET 
1 010627 SP, (PC) + > SAVE STACK PTR 
1 1$: - WORD * CONTAINS SAVED STACK PTR 
01 Q1 7 PC, (PC)+ = LOAD DATA. THE CURRENT PC IS USED AS 
01 000000 2s: WORD 0 :DATA. IF THIS TEST FAILS 2$ CON- 
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PAGE 47-43 


: TAINS THE DATA BEING USED. 
:MAKE ODD TO CHECK BIT 0 
LOAD GD REGISTER 0 

; TRANSFER GS REG 0 TO GD REG 1 
;AND GS REG 1 TO GD REG 2 


;SET PRIORITY LEVEL 7 

; TRANSF ER GS REG 5 TO GD STK PIR 

; TRANSFER GS STK PTR TO MEMORY 
:CONTAINS GS STACK PTR 

;RESTORE STK PTR NEEDED FOR HLT/SCOPE 
;SET PRIORITY LEVEL 
[COMPARE GS/GD STACK haf GS REG 0 


sBRANCH_IF THEY WE 
SHIFT TEST DATA UNTIL = 000000 


;GET GS REG 0 


GS REG 0 


;ERROR! DATA IN GS STK PTR NOT = 
HE STACK 


:GS REG 0-GS REG 5 ARE ONT 
SRESTORE STACK PTR 


. 2 RAEAEAARARAREEAEKEEAEEEAEEKRAEEAREKEAARAAEKRAAREREAAREKEAEREEAKERAEKEAEAREEREEE 


TEST UNIARY WORD INSTRUCTIONS USING ADDRESS MODE 1 


=3 RARAKAEAEEAAAEARERKAEAEREREEAEAERAEARKEEKKEKREARAEAERAEEEERERAEAEEEERARKEEEE 


;LOAD TEST NUMBER 
:zDISPLAY TEST NUMBER 


;RESERVE ADDRESS FOR TESTS 
;R2 A et TO RESERVED WORD 
:PRESET (R2) 


; (R2)=100000,,CC=1010 
ERROR! INCORRECT CC*S AS SHOWN ABOVE 


: (R2)=077777,CC=0011 


12=MAR-80 11:30 
CHECK REGISTER SELECTION 
INC 2$ 
3$: MOV 2$,R0 
MOV RO,R1 
MOV R1_R2 
MOV Re. 
MOV R3,R4 
MOV R4_RS 
BISB #340,aePSw 
MOV 5,SP 
MOV SP. (PC)+ 
4$: -WORD 0O 
MOV 1$,SP 
BICB #340. a"PSw 
CMP 4$,R0 
BNE 5$ 
ASL 2$ 
BNE 3$ 
BR 6% 
5$: MOV RO.-(SP) 
MOV R1,-(SP) 
MOV R2.-(SP) 
MOV R3,-(SP) 
MOV R4.-(SP) 
MOV R5,-(SP) 
HLT 
MOV 1$,SP 
6$: 
73: 
:*TEST 5 
TSTS: SCOPE 
MOVB #5,a#$TST 
MOV aes TSIM, SEDISPLAY 
MOV #5, aaSTIMES 
BR +4 
WORD 0 
MOV PC ,R2 
#4,R2 
CLR (R2) 
SEC 
ROR (R2) 
BLOS = ROR 
ROR1 
BGE + 
ROR1: HLT 
CCC 
SEC 
DEC (R2) 
BCC DECI 
BLE +6 


SEQ 0068 


CEQKC=E PDP 11/70 a See ae ale MACYT1 shea 


CEQKCE .P11 12-MAR 
6990 012406 104000 
6991 
yeas) 1 213 7 
699 12641 1 
6994 012614 8 
6995 012616 1 
om 124 1 2 

1 1 1 
12424 1001 
1246 1 
1 01 : ie 
0124 10 
0124 2 
4 4 00 oo 
mae ised 18 
7008 012444 112 
12446 101402 
7010 01 t35 102401 
7011 012652 1 1 
ee 012454 104000 
A 0124 1 
me ae tee 
1g ieee 08 
7018 1 <3 100001 
1 124 104000 
1 012472 12 
‘ 12474 1034035 
1 “08 102002 
$ 91g508 opie 
Sssee 1906 
1 1 
ges ss 
SiSsN0 Soe 
1 012514 102402 
’ 51 Lyd 
: 1 3 104000 
7 012524 peer 
01 10340 
70 0125 102402 
70 125 001401 
7040 0 5 Oe Gbo 
aot 125 104 
ok 012540 ones! 
7044 012542 005612 
7045 012544 1034035 


DECI: 


ADC1: 


ROL1: 


ROL 1A: 


ASR1: 


RORIA: 


INC1: 


SBC 1: 


E 6 
12-MAR-80 11:30 PAGE 47-4 


4 
TEST UNIARY WORD INSTRUCTIONS USING ADDRESS MODE 1 


HLT 


SEQ 0069 
ERROR! INCORRECT CC°S AS SHOWN ABOVE 


(R2) ; (R2)=100000, CC=1010 


;ERROR! INCORRECT CC*S AS SHOWN ABOVE 
(R2) ; (R2)=000000, CC=0111 


;ERROR! INCORRECT CC'S AS SHOWN ABOVE 


(R2) ; (R2)=000001 , CC=0000 
ROL1A ;BRANCH IF C OR Z IS SET 


(R2) ; (R2)=000000, CC=0111 

sERROR! INCORRECT CC°S AS SHOWN ABOVE 
(R2) ; (R2)=100000,CC=1010 
(R2) ; (R2)=100001 , CC=1001 


sERROR! INCORRECT CC'S AS SHOWN ABOVE 
(R2) ; (R2)=100000, CC=1000 


sERROR! INCORRECT CC'S AS SHOWN ABOVE 


(R2) 3 (R2)=077777,CC=0010 


CEQKC-E PDP 11/70 CPU _EXER 


CEQKCE .P11 


70467 


38 


Sasa 


SEREESRRRES ISIS ISSN 
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gagerereessusseaesecnee 
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12-MAR 


102002 
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CISER MACY11 30A(1052) 
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SBC 1A: 


ASL1: 


TEST1: 


NEG1: 


DECIA: 


12-MAR-80 11:30 
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TEST UNIARY WORD INSTRUCTIONS USING ADDRESS MODE 1 


BvVC 
BEQ 


BPL 
HLT 


BE 
HLT 


SBC1A 
a 
+ 
sERROR! INCORRECT CC°S AS SHOEN ABOVE 
wr i ; (R2)=100000, CC=1010 
+ 
(R2) ; (R2)=000000, CC=0111 
ASL1 
ASL1 
wr 
+ 
sERROR! INCORRECT CC°S AS SHOWN ABOVE 
(R2) > (R2)=177777,CC=1001 
COM1 
“v4 
+ 
sERROR! INCORRECT CC°S AS SHOWN ABOVE 
(R2) 3 (R2)=177777,CC=1000 
TESTI 
TEST1 
ys ih 
+ 
sERROR! INCORRECT Cc°S AS SHOWN ABOVE 
(R2) ; (R2)=000001 , CC=0000 
NEG1 
—' 
+ 
sERROR! INCORRECT CC*S AS SHOWN ABOVE 
(R2) ; (R2)=000000. CC=0101 
» 
+ 


ERROR! INCORRECT CC‘S AS 


RARER AEEEAKEAAKKEEEARARAEEAEEERERERAEEARAAEREAREEE 


S*TEST 6 


FLERE RRKREKRRERAEEEREREEREEEEEEREKKEEERRRRERERERERREREAERRERRERRER 


TST6: 


CHECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE | 


46, Q4STSTNM *LOAD TEST NUMBER 
av$TSTNM, aADISPLAY = =DISPLAY TEST NUMBER 
+4 :RESERVE A WORD 

0. - “ADDRESS RESERVED FOR TESTS 

#4 ,R3 :R3 POINTS TO EVEN BYTE OF WORD 
R3.Rd *R4 POINTS TO ODD BYTE OF WORD 





CEQKC-E PDP 11/70 CPU EXER 
12=MAR= 


CEQKCE .P11 
7096 012714 
7097 
eS o 71 

1 
71 1 
7101 012724 
71 1 
71 1 
71 1 
15 oh 
ay 0127 
ay 01274 
71 012744 
7110 012746 
7111 
jaye 012750 
7115 012752 
7114 «012754 
7115 012756 
118 012760 
711 
a8) 012762 
7119 012764 
7120 Q1 736 
ar Big 
71 $ 012772 
712 
7124 012774 
7125 012776 
71 01 
71 01 
71 01 
AS oa 
7131 at 
71 013012 
71 013014 
71 013016 
7135 
71 0 
7137 O 2 
71 0 4 
7139 O 
7140 O 
7141 O 
ays 
7145 0 
7144 OQ 
mus 
nie 8 
7148 0 
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7150 QO 
7151 O 
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13 


—_—_ — — 2 = 
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ssss- 
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CISER MACY11 30A(1052) 
11:27 T6 


1$: 


2$: 


INCB1: 


ROLB1: 


SBCB1: 


ASLB1: 


NEGB1: 


DECB1: 


RORB1 : 


11:30 
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CHECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 


12-MAR-80 
CLR (R3) 
SEC 
ADCB (R3) 
BM! 2$ 
INCB (R4) 
BR 1$ 
BVS +4 
HLT 
CLV 
INCB (R4) 
BCS INCB1 
BVC INCB1 
BM! +4 
HLT 
ROLB (R4) 
BCC ROLB1 
BVC ROLB1 
BEQ +4 
HLT 
SBCB (R4) 
BCC SBCB1 
BVS SBCB1 
BM! +4 
HLT 
ASLB (R3) 
BCC ASLB1 
BVC ASLB1 
BEQ +4 
HLT 
NE (R3) 
BCS NE GB1 
BVS NEGB1 
BEQ . +4 
HLT 
SCC 
DECB (R3) 
BCC DECB1 
BVS DECB1 
BNE +4 
HLT 
CLC 

(R3) 

BCC RORB1 
BYC RORB1 
BPL +4 
HLT 
CLC 
COMB (R4) 


;PRESET DATA 


;ADD CARRY TO EVEN BYTE 

;UNTIL EVEN BYTE BECOMES NEGATIVE 

: INCREMENT ODD BYTE 

; (R3)=077600=(0774)0200) ,CC=1010 

; (R3)=100200=(1000I[200],CC=1010 
;ERROR! INCORRECT CC°S AS SHOWN ABOVE 
; (R3)=000200=(0000J[200),CC=0111 


;ERROR! INCORRECT CC°S AS SHOWN ABOVE 
3 (R3)=177600=£177430200). CC=1001 


;ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2 (R3)=177400,CC=0111 


zL° JR! INCORRECT CC°S AS SHOWN ABOVE 
7 (R3)=177400,CC=0100 


sERROR! INCORRECT CC°S AS SHOWN ABOVE 


3 (R3)=177777,CC=1001 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 


; (R3)=177577,CC=0011 


;ERROR! INCORRECT CC*S AS SHOWN ABOVE 


: (R3)=000177,CC=0101 


SEQ 0071 


EQKC-— PDP 11/ 
EQKCE .P11 1 
7138 01 
71 01 
71 1 
7755 01 
89 1 
71 1 
LaF: 1 
7160 01 
F1e> 013076 
ae8 1 100 
7164 
7165 0131 
71 0131 
7167 0131 
71 01 119 
71 01311 
71 013114 
7171 
re 013116 
71 913120 
7174 013122 
7175 
7126 013124 
71 0131 
7178 0131 
7179 ~013132 
7180 013134 
7181 013136 
7182 
7183 013140 
7184 013142 
7185 013144 
186 013146 
7187 
7188 013150 
71 013152 
7190 013134 
7191 013156 
ab 013160 
7193 013162 
7194 
F196 O13166 
abe 813190 
7198 013172 
7199 013174 
013176 
1 
013200 
013202 
01 
7205 01 
7206 013210 


001401 
104000 


105714 
103402 
102401 
100401 


70 CPU EXERCISER MACY11 30A(1052) 
So MAR BO ichs 16 


ASRBIA: 


RORB1A: 


DECBIA: 


SWAB : 


TSTB1: 


11:30 


H 6 
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47-47 
CHECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 


12-MAR-80 
BCC COMB1 
BVS COMB) 
BEQ +4 
HLT 
ASRB (R3) 
BYC 2$ 
ADCB (R4) 
BR 1$ 
BCS ASRB1 
BEQ +4 
HLT 
ASRB (R4) 
ASRB (RS) 
BCC ASRB1A 
BYVC ASRB1A 
BNE +4 
HLT 
DECB (R4) 
BEQ . +4 
HLT 
SEC 

(R4) 

BCS RORB1A 
BYC RORB1A 
BM! +4 
HLT 

LV 
DECB (R4) 
BVS +4 
HLT 
SEC 
DECB (R3) 
BCC DECBIA 
BVS DECBIA 
BM! a 
HLT 
SCC 
S (R3) 
BCS SWAB1 
BVS SWAB1 
BPL +4 
HLT 
TSTB (R4) 
BCS TST61 
BVS TSTB1 
BM! +4 
HLT 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 
;SHIFT EVEN BYTE UNTIL V CLEARS 

;AND ADD CARRY TO ODD BYTE 

;ERROR! INCORRECT CC*S AS SHOWN ABOVE 
; (R3)=000400,CC=0011 

;ERROR! INCORRECT CC°S AS SHOWN ABOVE 


; (R3)=000000, CC=0100 
sERROR! INCORRECT CC°S AS SHOWN ABOVE 


; (R3)=100000,CC=1010 


;ERROR! INCORRECT CC'S AS SHOWN ABOVE 


; (R3)=077400, CC=0100 


3 (R3)=077777,CC=1001 


;ERROR! INCORRECT CC°S AS SHOWN ABOVE 


3 (R3)=177577=01774301773 .CC=0000 


ERROR! INCORRECT CC*S AS SHOWN ABOVE 
7 (R3)=177577=01774301773,CC=1000 


ERROR! INCORRECT CC*S AS SHOWN ABOVE 





1 6 
CEQKC-E POP 11/70 PU EXERC ER MACY11 30A(1052) 12=MAR-80 11:30 PAGE 47-48 
12=<MAR-80 11:27 16 





CEQKCE .P11 CHECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 SEQ 0073 
013212 105014 CLRB = (R4) : (R3)=000177=(0000[ 177), CC=0100 
013214 001401 BEQ +4 

10 01321 HLT 
11 01 10631 ASLB ~—_ (R33) = (R3)=000376 ,CC=1010 
16 13222 103402 a ASLBIA 
13 013224 102001 BVC ASLBIA 
14 4 100401 I +4 
1 1 104000 ASLB1A: HLT :ERROR! INCORRECT CC'S AS SHOWN ABOVE 
1 
18 013232 105113 COMB ss (R3) : (R3)=000001,CC=0001 
19 01 103002 BCC COMB1A 
01 102401 BVS COMB1A 
1 01 100001 BPL +4 
Q 013242 104000 COMBIA: HLT :ERROR!' INCORRECT CC'S AS SHOWN ABOVE 
4 013244 000313 SWAB —S (R33) : (R3)=000400, CC=0100 
5 013246 001401 BEQ +4 
013250 104000 HLT 
8 013252 105213 INCB —_ (R3) 
013254 000261 SEC 
013256 105613 SBCB Ss (R’3) : (R3)=000400, CC=0100 
31 (01 001401 BEQ + 
32 013262 104000 HLT 
7233 013264 022713 000400 CMP #400, (R3) : CHECK REMAINING RESULT 
013270 001401 BEQ +4 
7235 013272 104000 HLT 
72%6 5 LARA REAR EREEEAAKEERREERAEREERERREKERRERRRERERERERER 
(3) “TEST 7 CHECK UNIARY WORD OPS USING ADDRESS MODES 2 & 4 
(3) 2 RRR REAR RERE EE R EERE EECA ERAEREERARERRERRERRERERERR EERE 
(2) 
(2) 013274 000004 TST7: SCOPE 
(2) 013276 Mer37 000007 001252 MOVB #7.a%STSTNM :LOAD TEST NUMBER 
(2) 013 013737 001252 177570 MOV av$TSTNM, a#DISPLAY *:DISPLAY TEST NUMBER 
7237 013312 01 BR +4 
ie: 013314 .WORD 0 :ADDRESS RESERVED FOR TESTS 
39 013316 010704 MOV PC,R4 
7240 01 62704 000004 SUB #4 RG :R4 AND RS POINT TO 
7241 013324 010405 MOV R4_RS5 “RESERVED WORD 
es, 013 005015 CLR (R5) “PRESET DATA=0 
44 013330 000277 SCC 
45 0133 000244 CLZ 
46 13334 005725 TST (R5)+ = (R5)=000000. CC=0100 
1 103402 BCS TEST2 
48 013340 102401 BVS TEST2 
49 013342 001401 BEQ +4 
20 013344 104000 TEST2: HLT :ERROR! INCORRECT CC'S AS SHOWN ABOVE 
738 013 005145 COM -(R5) = (RS)=177777,CC=1001 
53 013350 103001 BCC COM, 
7254 013352 100401 BM] +4 
7238 013354 104000 COM4: HLT sERROR! INCORRECT CC°S AS SHOWN ABOVE 


J 6 | 





Qk. 1W/ MERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-49 
CEOKCE PI? boar 8 ie 17 CHECK UNIARY WO8D OPS USING ADDRESS MODES 2 & 4 SEQ 0074 
01 4 (R4)+ = (R4)=077777,CC=0011 
59 (01 103002 BCC ROR2 
g Bisaee 1958 a 
1 1 ROR2: HLT . sERROR! INCORRECT CC'S AS SHOWN ABOVE 
7 ccc 
5 o 374 003044 INC -(R4) : (R46) =100000, CC=1010 
13376 102002 BvC INC4 
SRS Ses a MS 
1 104000 INC4: HLT ; :ERROR! INCORRECT CC'S AS SHOWN ABOVE 
1 SEC 
0 1 $00 5 S (R4)+ : (R4)=000200, CC=1000 
Ei Sas : 
6; 16 104000 SWAB2: HLT : :ERROR! INCORRECT CC'S AS SHOWN ABOVE 
01 30 005425 NEG (RS) + : (R5)=177600,CC=1001 
see i SS 
01 $6 104000 NEG2: HLT : :ERROR! INCORRECT CC’S AS SHOWN ABOVE 
0134 005044 CLR -(R4) : (R4)=000000, CC=0100 
i 001401 BEQ + 
: 01 000 HLT 
13436 61 SEC 
Be 0134 : 006045 ROR -(R5) : (R5)=100000, CC=1010 
a 525 ADC (R5)+ : (R5)=100001, CC=1000 
re Slee Tie . = 
g 1 52 000 ADC2: HLT ; :ERROR! INCORRECT CC°S AS SHOWN ABOVE 
13454 2 SEV 
013486 oe 24 ASR (Ra) = (R4)=140000, CC=1001 
01 346¢ 102401 BVS ASR2 
01 BM] +4 
013466 ASR2: HLT :ERROR! INCORRECT CC'S AS SHOWN ABOVE 
1 0134 2 SEV 
73s O1 3472 144 ROL ~(R4) :(R4)=100001, CC=1001 
730 or 74 BCC ROL4 
ras SS Ita a 
7309 013502 ROL4: HLT ; sERROR! INCORRECT CC'S AS SHOWN ABOVE 
013504 005645 sac ~(R5) = (R5)=100000, CC=1000 
7310 013510 104 HiT ; :ERROR! 'C' BIT FAILED TO CLEAR 
73e 013512 005325 DEC (R5)+ : (R5)=077777,CC=0010 
7313 013514 103402 BCS DEC2 





CEQKC-E PDP 11 
CEQKCE .P11 
7314 013520 
S38 
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013544 
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013580 
7330 013554 
2 O eeeh 
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SOOCCCD COOCOSDS oo 
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rx 
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177774 


CPU EXERC IER MACY11 30A(1052) 
“MAR-80 11:27 17 


DEC2: 


ASL4: 


CHE 
BVC 
BPL 


12-MAR-80 11:30 
CK UNIARY WORD OPS USING ADDRESS MODES 2 & 4 


K 6 
PAGE 47-50 
bEfe 
a? 
ERROR! INCORRECT CC'S AS SHOWN ABOVE 
3 (R4)=177776,CC=1010 


7 (R4)=177774,CC=1001 


;ERROR! INCORRECT CC*S AS SHOWN ABOVE 
#177774, (R4)+ - 
+4 


R4,R5 
+4 


5 RRR RAERRAAEEEKEREEREREREREKEEEKEERERRKEKEEREREREERKERAERREREREEE 


CHECK UNIARY BYTE OPS USING ADDRESS MODES 2 & 4 


FL RARER EERE RAEAEEEREERKEKREKKEREKEEKREEEREREEREERERERERREREH 


TST10: 


COMB2: 


ADCB2: 


SCOPE 
MOVB #10, a4#STSTNM :LOAD TEST NUMBER 
MOV @4STSTNM, 401 SPLAY : DISPLAY TEST NUMBER 
BR +4 ;RESERVE A WORD 
-WORD 0O sRESERVED WORD 
MOV PC,R5 
SUB #4 ,R5 :RS POINTS TO EVEN BYTE OF RESERVED WORD 
MOV R5,RO 
MOV RO,R2 
INC R2 :R2 POINTS TO ODD BYTE OF RESERVED WORD 
CLR (RO) : PRESET 
SCC 
CLC 
C (R5)+ : (RO)=000377,CC=1001 
BCC COMB2 
BVS COMB2 
BMI +4 
HLT :ERROR! INCORRECT CC°S AS SHOWN ABOVE 
~ ty “ae : (RO)=000000, CC=0101 
+ 
HLT :ERROR! INCORRECT RESULT AS SHOWN ABOVE 
ADCB (R5)+ : (RO) =000400, CC=0000 
BCS ADCB2 7 
BNE . +4 
HLT sERROR! INCORRECT CC‘S AS SHOWN ABOVE 
+SEC!SEV 
RORB -(R5) : (RO)=100000, CC=1001 
BCC RORB4S 
BVS RORB4S 


SEQ 0075 


a 
CEQKC-E PDP 11/70 a dF MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-51 
11: T10 


CEQKCE.P11 © 12=MAR CHECK UNIARY BYTE OPS USING ADDRESS MODES 2 & 4 SEQ 0076 
55 Oi 3672 100201 BM +4 
66 013674 104000 RORB4: HLT ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
58 013676 277 SCC 
69 01 1 g ROLB = (R2) + ; (RO)=100001 , CC=0000 
D 01 1 BCS —- ROLB2 
1 102402 BVS § ROLB2 
13795 $359 = 
74 013712 104000 ROLB2: HLT = ZERROR! INCORRECT CC'S AS SHOWN ABOVE 
76 013714 000257 ccc 
13716 106225 (R5)+ ;(RO)=140001, CC=1010 
578 13720 103402 BCS SA 
> 01 102001 BYC 
«8 
$81 013724 100401 BMI +4 
82 015726 104000 ASRB2: HLT ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
+ 1 105242 INCB ~(R2) ; (RO)=140002,CC=0000 
586 01 106222 ASRB = (R2)+ ; (RO)=140001 ,CC=0000 
013760 102401 BYS ASRBDA 
$89 013742 100001 BPL #4 
$90 013744 104000 ASRB2A: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
me OT 746 000266 +SEZ! SEV :SET 7Z,V 
93 013750 106345 ASLB = =(R5) ; (RO)=100001 ,CC=1001 
94 013752 103003 BCC  ASLB4 
95 013754 102402 BVS  ASLB4 
13760 100401 au 
013762 104000 ASLB4: HLT ; ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2400 013766 105322 DECB = (R2)+ ; (RO)=077401=(07743001] .cc=0010 
7401 013766 103002 BCC =—-_—»DECB2 
7208 013772 100001 a 
7404 013774 104000 DECB2: HLT ;ERROR! INCORRECT CC'S AS SHOWNABOVE 
7408 013776 105645 SBCB. = = (R5) ;(RO)=077400, CC=0100 
a0? O16 103402 BCS SBCB4 
409 014004 00140) BE ta 
+ 
2610 §12006 104000 SBCB4: HLT ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
Pale 914010 105442 NEGB  -(R2) ; (RO)=10400, CC=1001 
7413 014012 103002 BCC  §NEGB4 | 
male Susie 195ch aS 
.+ 
Pai 014020 104000 NEGBS: HLT ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
7418 014022 105725 TSTB = (R5) + ; (RO)=100400,CC=0100 
7419 014024 103401 BCS TSTB2 
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ns 


FREESE SERRE EAR 
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BSP KPHRER HPL HLS LPL 
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04000 TSTB2: 


TSTB2A: 


SWABS : 
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oeeee? 000601 
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**TEST 11 


34 RERKREAAEKREEAEARERAREERERERERAEAERERAEAARARAKEEEEKEKRAAEEAEAREERAREKE 


TST11 
112737 000011 001252 
0135737 001252 177570 
000402 


2" 6 
12-MAR-80 11:30 PAGE 47-52 
CHECK UNIARY BYTE OPS USING ADDRESS MODES 2 & 4 


BEQ +4 
HLT 
TSTB (R2)+ 3 (RO)=100400,CC=1000 
BEQ TSTB2A 
BM! +4 
HLT 
SEC 
S -(R2) 7 (RO) =000201 , CC=1000 
BCS SWABS 
BM! . +4 
HLT 
SCC 
INCB (R5)+ : (RO) =000601=[00043£2013,CC=0000 
BCC INCB2 
BVS INCB2 
Q INCB2 
BPL +4 ; 
HLT 
CMP (R2) +, #000601 ;CHECK END RESULT 
BEQ +4 
HLT 
CMP R2.R5 : CHECK REGISTERS 
aT +4 


CHECK UNIARY WORD OPS USING ADDRESS MODES 3 & 5 


SCOPE 
MOVB #11,a#STSTNM :LOAD TEST NUMBER 
MOV @a*$TSTNM, aaDI SPLAY * DISPLAY TEST NUMBER 
BR +6 =RESERVE 5 WORDS 

.WORD 0 =1 FOR THE ADDRESS 

“WORD 0 “AND 1 FOR DATA 
MOV PC,R3 

UB #4.R3 

CLR (R3) =PRESET DATA 

R3,RO “RO POINTS TO DATA WORD 

TST ~(R3) 
MOV RO, (R3) 

MOV R3,R 

CCC 

TST a(R3) + = (RO) =000000, CC=0100 

BEQ +4 

HLT 

SEC 

ROR a-(R3) : (RO) =100000, CC=1010 


SEQ 0077 


CEQKC-E PDP 


11/70 CPU EXERC] 
80 11: 


:27 


CEQKCE. pi) 12-MAR-~ 
7470 014170 103402 
7471 14172 1 1 
7672 O16174 100401 
74 14176 104000 
7474 
7475 O14 57 
7476 014 34 
7477 014204 102001 
7478 014206 100401 
o 01421 104000 
7481 014212 50 
? $14514 006833 
7483 014216 103002 
7484 014220 102401 
7485 014222 01 
7486 014226 
7487 
7688 014226 000277 
7489 014230 005354 
7490 014232 103003 
7491 014234 102002 
7492 014236 001401 
7493 014240 1 
7494 014242 104000 
7495 
7496 014244 005453 
7497 014246 103002 
7498 014250 102401 
7499 014252 1 
7500 014254 ' 104000 
7501 

014256 000262 
F208 014960 005136 
7504 014262 103001 
7305 014264 102001 
7506 014266 104000 
7507 
SA@_ 014270 005233 
75 014272 103001 
(510 14274 100001 
7311 014276 104000 
7313 014300 005554 
7914 014302 105402 
7515 014304 102001 
7516 014306 100401 
7317 014310 104000 
7519 014312 000257 
7520 014314 006134 
7521 014316 103002 
7522 014320 102001 
7923 014322 001401 
7924 (014326 104 
7525 


7 


ER MACY11 seat tase) 


ASR3: 


ASL3: 


DECS: 


NEGS: 


INC3: 


ADC5: 


ROL3: 


N 6 
12-MAR-80 11:30 PAGE 47-53 
CHECK UNIARY WORD OPS USING ADDRESS MODES 3 @ 5 


BCS RORS 

BYC RORS 

BM! +4 

HLT 

ccc 

ASR a(R4)+ : (RO) =140000,CC=1010 
BYC ASR3 

BMI +4 

HLT 

CLN 

ASL a(R3)+ 3; (RO)=100000, CC=1001 
BCC ASL3 . 

BVS ASL3 

BMI +4 

HLT 

SCC 

DEC a-(R4) :(RO)=077777, CC=0010 
BCC DECS 

BVC DECS 

BEQ DECS 

BPL +4 

HLT 

NEG a-(R3) : (RO)=100001, CC=1001 
BCC NEGS 

BVS NEG5S 

BM! +4 

HLT 

SEV 

COM a(R4)+ > (RO)=077776, CC=0001 
BCC COMS 

BYC +4 

HLT 

INC a(R3)+ : (RO)=077777, CC=0001 
BCC INC3 

BPL +4 

HLT 

ADC a-(R4) :(RO)=100000, cc=1010 
BCS ADCS 

BYC ADC5 

BMI +4 

HLT 

ccc 

ROL a(R4)+ : (RO) =000000, CC=0111 
BCC ROL3 

BVC ROL3 

BEQ +4 

HLT 


SEQ 0078 





B 7 
CEQKC=€ PDP 11/70 CPU MERCI SER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-54 
CEQKCE.P11 1 DoMAR BD 11: 111 CHECK UNIARY WORD OPS USING ADDRESS MODES 3 & 5 SEQ 0079 
7526 014 3 INC a-(R3) :(RO)=000001, CC=0001 
14 54 SBC a-(R4) = (RO)=000000. CC=0100 
14 103401 BCS SBC5 
14 001401 BEQ +4 
14 104000 SBC5: 

1 FF EAARAAAAAARAAAEARAAEEREREAAEREAERARAAAAREREAERARAEAARAARERAAREEEES 
(3) **TEST 12 CHECK UNIARY BYTE OPS USING ADDRESS MODES 3 & 5 
( ) £ FARRAR ARAAEAEEAEAEAEAEREEAAEREEEEARERAAARERRAERERAERAAAERERERRRERRERR ED 
(2) 

(2) O14 TST12: SCOPE 
(2) 014 112737 900012 001252 MOVB #12, a¢STSTNM :LOAD TEST NUMBER 
(2) 0146 13737 001252 177570 MOV @YSTSTNM, AADISPLAY > DISPLAY TEST NUMBER 
7532 014 3 BR +10 :RESERVE 3 WORDS 
75 14 .WORD 0 -1 FOR EVEN BYTE ADDRESS 
75 14 “WORD 0 -1 FOR ODD BYTE ADDRESS 
7535 014 “WORD 0 “AND 1 FOR DATA 
75 14 010 : MOV PC,R2 
75 4 74, TST -(R2) :BACK R2 UP TO 
75 14 742 TST -(R2) “DATA WORD 
O14 4 01 MOV R2.RO “RO POINTS TO THE DATA WORD 
ers 14376 10 CLR (RO) “PRESET DATA 
7341 01 42 TST -(R2) “BACK R2 UP TO 
: 4 00574 TST -(R2) “EVEN BYTE ADDRESS WORD 
7543 01 1 MOV RO, (R2)+ “LOAD ADDRESS 
7544 4 INC “ODD BYTE ADDRESS 
7545 01461 ot 2 MOV RO, (R2)+ “LOAD ODD BYTE ADDRESS 
7346 014412 01 MOV R2,RO “RESET RO 
7547 014414 010205 MOV R2,R5 
2348 1441 105152 COMB Ss a (R2) = (RO)=177400, CC=1001 
7549 01 103001 BCC COMBS 
7550 014422 100401 BMI +4 
7331 14424 104 COMBS: HLT 
735¢ 1 105752 TSTB) =—s-_ @-(R2) :(RO)=177400, CC=0100 
7335 14430 001401 3 BEQ +4 
75 144 104000 HLT ' 
7555 0144 SEV 
7336 14436 1 ASRB = a (R’5) = (RO)=177400, CC=1001 
1 103002 BCC ASRBS 
le: 14442 102401 BVS ASRBS 
9 014444 100401 BMI +4 
: 014446 104000 ASRBS: HLT 
14450 105232 INCB =. @(R2) + = (RO)=177401, CC=000 
1445e 103001 BCC INCB3 
14454 100001 BPL +4 
§ 014456 1 INCB3: HLT 
14460 1 CLC 
1 106055 RORB a-(R5) = (RO)=177400, CC=0111 
7571 12096 1007 BNE RORB5 
7378 14472 1 BPL .+4 
ele, 14474 104000 RORBS: HLT 
7575 014476 106332 ASLB = a(R2) + -(RO)=177000, CC=1001 


CEQKC-E PDP 11/ 


7576 014 
7379 14 
ae Bi 
fy 
1 0145% 
1451 
1451 
14516 
5 
145 
i 
14524 
0145 
7590 bp: 
7388 145 
0145 
7594 912836 
7595 014540 
fe 
7597 014542 
7598 014544 
7599 e288 
7600 0145 
760e 014552 
7605 014554 
7604 014556 
Rae gies 
7607 $1456 
(3) 
(3) 
(2) 
(2) 014 
(2) 0145 
(2) 014576 
014604 
7610 Q1 
7611 01461 
nels 01461 
761 Vale 
7614 Q1 38 
7615 01 
ooie 01 
761 1 
7618 01 
7619 01 
1 014634 
; 014640 
014642 
7 014644 
5 014646 





70 CPU wt 


CEQKCE .P11 12 


177764 


177746 


RCISER MACY11 30A(1052) 
1: T12 


12-MAR-80 11:30 PAGE 47-55 
CHECK UNIARY BYTE OPS USING ADDRESS MODES 3 @ 5 
BCC ASLB3 
BVS ASLB3 
BM! +4 
ASLB3: HLT 
ADCB a-(R2) : (RO)=177400, CC=1000 
BCS ADCB5 
BM! +4 
ADCB5: HLT 
SCC 
a(R5)+ : (RO)=177401, CC=0000 
BLOS ROLB3 ;BRANCH IF C OR Z IS SET 
BVS ROLB3 
BPL .*4 
ROLB3: HLT 
SWAB a-(R2) : (RO)=000777, CC=1000 
BMI +4 
HLT 
SEC 
SBCB a(RS)+ : (RO) =000377, CC=0100 
BCS SBCB3 
BEQ +4 
SBCB3: HLT 
NEGB a(R2)+ : (RO) =000001 
DECB a-(R2) » 2: (RO)=000000, CC=0101 
BCC DECBS 
BEQ +4 
DECBS: HLT 
: A KAAEAAAKEAEARAAAEARAAARAAAEEEEAEEAAAEAAAKCAAEAEAREERAARERARARERERERERAEEREERE 
s*TEST 13 CHECK UNIARY WORD OPS USING ADDRESS MODE 6 (PC) 
SF ARERR AEAREKEREEREREEAEARRAEKKEKEARAEREERARERARRERRRAERREERERR 
TST13: SCOPE 
MOVB #13, a4STSTNM ;LOAD TEST NUMBER 
MOV a4$STSTNM,@ADISPLAY : DISPLAY TEST NUMBER 
CLR (PC) + ;PRESET DATA = 0 
UWM6 : - 0 :RESERVED FOR DATA 
MOV PC,.RO 
or -(RO) ,-(RO) -RO POINTS TO DATA WORD 
ROL UWM6 : (RO) =000001 , CC=0000 
BCS ROL6 
BVS ROL6 
BEQ ROL 6 
BPL +4 
ROL6: HLT 
COM UWM6 :(RO)=177776, CC=1001 
BCC COM6 
BVS COM6 
BM! +4 
COM6: HLT 


SEQ 0080 








D 7 
~—E PDP 11/70 CPU EXERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-56 
E.P11 1 11: T13 CHECK UNIARY WORD OPS USING ADDRESS MODE 6 (PC) SEQ 0081 
gies 7 177732 UWiM6 > (RO)=177777, CC=1010 
146 1 2 BCS 
146 1 1 BVC ASR6 
1 1 1 BM! .*4 
1 1 ASR6: HLT 
ree a 77 SCC 
rs 7 177714 NEG UWM6 :(RO)=000001, CC=0001 
0146 1 3 BCC NE G6 
14674 102402 BVS NEG6 
1467 1401 BEQ NEG6 
14 T 1 BPL +4 
7 14 104 NEG6: 4HLT 
7 14 77 SCC 
14 7 177674 ROR UWM6 :(RO)=100000, CC=1001 
764 14712 103003 BCC ROR6 
14714 102402 BVS ROR6 
644 014716 001401 BEQ ROR6 
pL 100401 BMI +4 
ie 14722 104000 ROR6: HLT 
7648 one 4 toy th 177656 SBC UWM6 :(RO)=077777, CC=0010 
14 103402 BCS SBC6 
50 014 1 1 BVC SBC6 
14 1 1 BPL +4 
14 104000 SBC6: HLT 
bibs 56 CLV 
14742 177640 INC UWM6 : (RO)=100000, CC=1011 
014746 103403 BCS INC6 
14 2 BVC INC6 
14752 001401 INC6 
14754 100401 BMI + 
7660 014756 000 INC6: HLT 
nes Oe eee 7 177622 ASR UWM6 7 (RO)=140000, Cc=1010 
7 14764 1 SEC 
7664 16786 177614 ASL UWM6 ; (RO)=100000, CC=1001 
7665 014 BCC ASL6 
ee 14774 102401 BVS ASL6 
766 1ar78 1 BMI . +4 
ee 1 104000 ASL6: HLT 
O96 1 8 367 177600 DEC UWM6 :(RO)=077777, CC=0011 
7671 Q1 1 BCC 6 
Pore 1501 1 1 BVC DEC6 
76 15012 1 1 BPL +4 
ror" 18014 104 DEC6: HLT 
76 1 18 005567 177564 ADC UWM6 : (RO)=100000, CC=1010 
76 1 1034 BCS ADC6 
76 1 1 BVC ADC6 
76 " 100401 BM! .+4 
768C 0150 104 ADC6: HLT 
7681 015032 000242 CLV 
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PAGE 47-57 


CHECK UNIARY WORD OPS USING ADDRESS MODE 6 (PC) 


12-MAR-80 11:30 
SWAB UWS 
BM! .*4 
HLT 
CMP #200, (RO) 
BEQ +4 
HLT 


+ REA AAAAAEAEEAAEEETEAEAEAEREAAARAARAARAAAERAARAEEAEAEAAAREREEEAE 


s*TEST 14 


fF AAAAAAAAAAAAAAAAAAAARAAAAEAARAAAAAAARAARAEARARAREERARAERAARAARERE 


TST14: 


TSTB6: 


ASLB6: 


SCOPE 
MOVB 


CHECK UNIARY BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PC) 


#14, @A4STSTNM 
@4STSTNM,@4D1SPLAY 


oR 
@4F ACTOR ,RO 
UBM6 


;LOAD TEST NUMBER 

;zDISPLAY TEST NUMBER 
;RO at B TO ADDRESS OF DATA 
CLEAR DAT 


; TEST ODD BYTE 


; (RO)=000000, CC=0100 


;LOOP UNTIL (RO)=077600, CC=1011 


;INCB INST INCREMENTS EVEN BYTE 
;ADCB INCREMENTS ODD BYTE 


7 (RO)=077400, CC=0111 


;(RO)=100000, CC=1010 


CEQKC-€ PDP 11 
CEQKCE.P11 
015232 
iEser 
5 01 
$2526 
015244 
15 
15 
7740 015 
7741 
7742 015254 
77% O12 
77hgl 13 
7745 01 
7746 015 
7? ly 
7748 015270 
7749 015 
7750 015276 
ey 015 
5 8h 
Mey, 
7755 o135r8 
reo 618 14 
7738 015316 
7759 015320 
7760 
7761 015 2 
7762 15 
776 19 
7764 015 
7765 015 
8 
7767 015336 
Free O1esas 
aes 015 
7771 + 015350 
rae 015 52 
7774 015356 
7775 «(015 
7776 015 
7559 015 
7778 «(015 
7779 
7780 015370 
1 015374 
7 015376 
778s 015400 
5 015402 
015406 
7787 015410 
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000171 


000154 


000137 


000123 


000072 


000057 


000040 


000026 


4/70 CPU_EXERCISER MACY11 30A(1052) 
1 D-MAR~BO 1:2? 114 


ADCB6: 


RORB6 : 


COMB6: 


NE GB6: 


ROLB6: 


ASRB6: 


INCB6A: 


DE CB6A: 


SWAB6 : 


12-MAR-80 11: 
CHECK UNIARY BYT 
BMI .*4 
HLT 
SEC 

UBM6+1 
BCS RORB6 
BYC RORB6 
BMI +4 
HLT 
C UBM6 
BCC COMB6 
BVS COMB6 
BMI . +4 
HLT 
SEV 
NE UBM6 +1 
BCC NE G86 
BYVS NE GB6 
BPL . +4 
HLT 
ROLB UBMG + 1 
BCS ROLB6 
BYC ROLB6 
BMI +4 
HLT 
ASRB UBM6 
BCC ASRB6 
BVS ASRB6 
BM] +4 
HLT 
INCB UBM6 
BCC INCB6A 
BYS INCB6A 
BEQ .*4 
HLT 
DECB UBM6 +1 
BCC DE CB6A 
BVS DECB6A 
BEG DECB6A 
BM] . +4 
HLT 
SWAB UBM6 
BCS SWAB6 
BM] +4 
HLT 
ROLB 
BCC ROLB6A 
BYVC ROLB6A 


E OP 


F 7 
1:30 PAGE 


AGE 47-58 
S (EVEN/CDD) USING ADDRESS MODE 6 (PC) 


;(RO)=140000, CC=1010 


3 (RO)=140377 CC=1001 


7 (RO) =040377, CC=0001 


;(RO)=100777, CC=1010 


:(RO)=100777, CC=1001 


;(RO)=100400, CC=0101 


7 (RO)=100000, CC=1001 


;(RO)=000260, CC=1000 


;(RO)=000000, CC=0111 





SEQ 0083 
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11/70 CPU EEC ISER MACY11 agai 105e) 12-MAR-80 11:30 


PAGE 47-59 
12-MAR~80 1 CHECK UNIARY BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PC) SEQ 0084 


$412 001401 BEQ +6 

5414 104000 ROLB6A: HLT 

5416 005767 000012 TST ; (RO) =000000, CC=0100 

18 02 BCS TEST6 ‘ 

5424 102601 BVS TEST6 

54 001401 BEQ 

54 104000 TEST6: HLT 

5432 000401 +4 :RESERVE A WORD 

5434 000000 0 “WORD RESERVED FOR DATA 

5436 000004 RELE1: SCOPE 

5440 01070 PC.R2 

5442 062702 000012 ADD #12,R2 

5446 012707 044042 #RELOC ,PC ;GO RELOCATE PROGRAM CODE 

5452 000000 REL11: "WORD 
-77717111111111 LAST ADDRESS OF CODE TO BE RELOCATED 11111111111 
STARA ARERERE ARERR ARAERERAEAKAEEAAREREEREEKERRARRARERERAERRERER ES 
:*TEST 15 CHECK UNIARY WORD OPS USING ADDRESS MODE 7 

SRA AEAARAAEEREEEREAAAAAERARREREAREERAERAERAAERRAAEREREARERERE 

5454 012767 000001 163714 MOV #1, STIMES ::DO 1 ITERATION 

462 000004 TST15: SCOPE 

5464 112737 000015 001252 MOVB #15. aaSTSTNM LOAD TEST NUMBER 

72 013737 001252 177570 MOV avSTSTNM, a#D I SPLAY - DISPLAY TEST NUMBER 


SBTTL START OF SECTION 2 
-20ge22abeeeee FIRST ADDRESS TO BE — 222222222 





ee ee ee ee et er et et a a eed we ee ee ee ee 


PQ LR LL RFR FR FR EO O™ 
we ee et aod od od =) = =o ws 0) = 


SEgeeeEae 


wala 
Qukwthvo- 


015500 010700 MOV 

015502 005740 TST :RO CONTAINS THE ADDRESS OF REL2 
015504 010037 001610 MOV 

015510 010700 MOV “GET CURRENT PC 

015512 162700 015512 SUB = SUBTRACT RELOCATION FACTOR 
015318 010037 001604 MOV “SAVE RELOCATION FACTOR 

015522 010737 001262 MOV -SET LOOP ADDRESS 

0155 062737 000030 001262 ADD “ADJUST 

015534 013737 001262 001260 MOV 

015542 105737 001600 TSTB :BR IF TEST CODE TO BE EXECUTED 
015346 001402 BEQ +6 

015550 000167 004170 JMP RELE2 

015554 900403 BR 7 :RESERVE 3 WORDS FOR ADDRESSES & DATA 
015556 -WORD 0 = CONTAINS ADDRESS OF UwM7 
015560 000000 UWM7: WORD 0 =CONTAINS DAT 

015562 000000 .WORD 0 * CONTAINS MODRESS OF UWM7 
015564 010700 UwW7: MOV PC,RO 

015966 5740 TST -(RO) 

0155 5740 TST -(ROQ) 

015572 005040 CLR -(RO) :CLEAR TEST DATA 

015574 010002 MOV 0,R2 

015576 010240 V R2.-(RO) :SET UP ADDRESS 

15600 20 TST 0)+ *MOVE RO TO NEXT ADDRESS 
015602 005720 TST (RO) + 

015604 010210 MOV R2, (RO) -SET NEXT ADDRESS 

015606 200 MOV “RO “SET RO POINTING TO DATA 


— 
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SALT 


11/70 CPU 
2 


77 


MERCISER MACY11 
bey, 


000002 


177776 


600002 


000002 


177776 


177776 


000002 


177776 


H 7 
30A(1052) 12-MAR-80 11:30 PAGE 47-60 
START OF SECTION 2 


SBC7: 


ASL?: 


DEC7: 


ASR7: 


ROR?: 


NEG?7: 


SWAB? : 


a2 (2) 
~*4 


:(RO)=000000, CC=0100 


3 (RO)=177777, CC=1001 


3 (RO)=177776, CC=1001 


:(RO)=177775, CC=1000 


3 (RO)=177776, CC=1001 


3 (RO)=077777, CC=0000 
BRANCH IF C OR Z IS SET 


° 
e 


;(RO)=100001, CC=1001 


; (RO)=000600, CC=1000 


SEQ 0085 


CREPE OROMeereee PEP er ee EET 
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3eF 


AAMAS 
and ad cad ad ad ad cad ad ad 


SKRVSRVEV 
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oOooo°oo 
abed adabad ad 


016152 


11/70 CPU 
12 


tae 
11:30 PAGE 47-61 


KERC |; ER MACY11 304(1052) 12-MAR-80 
? START OF SECTION 2 
SEV 
000002 COM @2(2) :(RO)=177177, CC=1001 
BCC COM7 
BVS COM7 
BM! +4 
COM7: HLT 
000002 SWAB Ss 2 (2) : (RO) =077776, CC=1000 
BM! +4 
HLT 
SCC 
177776 ADC a-2(2) :(RO)=077777, CC=0000 
BCS ADC7 
BVS ADC7 
BPL +4 
ADC7: HLT 
000002 INC a2(2) :(RO)=100000, CC=1010 
BVC INC 
BM! + 
INC?7: HLT 
CCC 
177776 ROL a-2(2) :(RO)=000000, CC=0111 
BCC ROL 7 
BYVC ROL 7 
BEQ +4 
ROL7: HLT 
5 TARR AREAERRAEEREREEREREEERAEERREERERKARERERERERRRERARERAARRAEREREER 
s*TEST 16 CHECK UNIARY BYTE OPS USING ADDRESS MODE 7 
5 LARA REEKEERRERREEAEERAAEEERAEEERAEAEAKERERAEAEERAEAERERERERRRRE RS 
TST16: SCOPE 
000016 1252 MOVB #16, a4STSTNM ;LOAD TEST NUMBER 
001252 7570 MOV @4$TSTNM,a4DISPLAY ::DISPLAY TEST NUMBER 
015560 MOV #UWM7 .RO 
001604 ADD avF ACTOR,RO 
MOV RO.R2 
177442 MOV RO,UWM7+2 
TST (RO) + 
INC (RO) :WORD FOLLOWING UWM7 CONTAINS ADDRESS 
TST ~(RQ) * OF ODD BYTE. RO POINTS TO DATA WORD 
CLR (RO) *PRESET DATA 
177422 MOV RO,UWM7-2 
sNOTE: @2(2) REFERENCES THE ODD BYTE, AND a@-2(2) REFERENCES THE EVEN BYTE. 
+SEC'SEV sSET C AND V 
000002 SBCB a2(2) :(RO)=177400, CC=1001 
BCC SBCB7 
BVS SBCB7 
BEQ SBCB7 
BM] +4 
SBCB7: HLT 
ScCc >SET CONDITION CODES 
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/ a toe MACY11 30A(1052) 
“MAR~80 11:27 116 


ADCB?: 


COMB7: 


RORB7 : 


INCB7: 


DECB7: 


ASLB?7: 


ASRB7: 


NEGB7: 


12-MAR-80 
ADCB a-2(2) 
BCS ADCB7 
BVS ADCB7 
BEQ ADCB7 
BPL +4 
HLT 
C a-2 (2) 
BCC COMB7 
BVS COMB7 
BM! +4 
HLT 
CLC 
R a2(2) 
BCC RORB7 
BVC RORB7 
BPL +4 
HLT 
INCB a2(2) 
BCC INCB7 
BVC INCB7 
BM! +4 
HLT 
DECB a-2 (2) 
BCC DECB7 
BVS DECB7 
BMI +4 
HLT 
AS a@2(2) 
BCC ASLB7 
BYC ASLB7 
BEQ . +4 
HLT 
CLC 
A a-2(2) 
BCC 7 
BVS ASRB7 
BMI +4 
HLT 
NE a2(2) 
BCS NE GB7 
BVS NE GB7 
BEQ +4 
HLT 
SEV 
ROLB 2(2) 
BCC ROLB7 
BVS ROLB7 
BMI +4 


S. = 
11:30 PAGE 47-62 
CHECK UNIARY BYTE OPS USING ADDRESS MODE 7 


SEQ 0087 
;(RO)=177401, CC=0000 


7 (RO)=177776, CC=1001 


; CLEAR CARRY 
3 (RQ)=077776, CC=0011 


:(RO)=100376, CC=1011 


:(RO)=100375, CC=1001 


: (RO)=000375, CC=0111 


;CLEAR CARRY 
: (RO)=000376, CC=1001 


; (RO)=000376. CC=0100 


7 (R0)=00374, CC=1001 


 . 
CEQKC=E PDP 11/70 Cou aC Len MACY11 meas 108) 12-MAR-80 11:30 PAGE 47-63 





CEQKCE .P11 12-MAR- CHECK UNIARY BYTE OPS USING ADDRESS MODE 7 SEQ 0088 
7979 016340 104000 ROLB7: HLT 
1 016 105272 177776 INCB a-2(2) ; (RO)=000375, CC=1001 
4 105272 177776 INCB a-2 (2) : (RO)=000376, CC=1001 
1635 105 77776 ADCB a-2(2) : (RQO)=0003577, CC=1000 
7984 016 105172 177776 COMB 2(2) ; (RO)=000000, cC=0100 
5 016 001401 BEQ +4 
016564 104 HLT 
fT RRA REERAEEERAEKEEEERERAEAAAERERREARARERARARARERRERERAERRREREEREE 
8) <*TEST 17 CHECK BINARY OPS USING ADDRESS MODE 0 
(3) RRR RRR REE ERE EERE EERE REE REA EERERER ER  e 
(2) 
(2) 016 ge TST17: SCOPE 
(2) 016 11 7 000017 OO ese MOVB #17, a4$STSTNM ;LOAD TEST NUMBER 
(2) 016376 013737 001252 177570 MOV a4$TSTNM,@4DI SPLAY :;;DISPLAY TEST NUMBER 
016404 000277 SCC :;SET CONDITION CODES 
7989 016406 010 MOV PC,RO sRO=PC, CC=x001 
7990 016410 103002 BCC mMOVO 
7991 016412 102401 BVS mMovO 
a 6 016414 001001 BNE +4 
7995 016416 104000 mMovO: HLT 
7995 Onenes 010002 MOV RO.R2 ;R2=RO 
7996 016422 000262 SEV :SET V 
7997 016424 160002 S RO,R2 7R2=000000, CC=0100 
7998 0164 103402 BCS UBO 
7999 0164 102401 BVS SUB0 
8000 eras 001401 +4 
8001 0164 104 SUBO: HLT 
5008 016436 000244 CLZ 
8004 016440 010203 MOV R2,R3 :R2=R3=000000, CC=0100 
8005 016442 103401 eBcs MOVOA 
OOF 016444 001401 BEQ +4 
016446 000 MOVOA: HLT 
010628 257 
10 016452 272 +SEV! SEN :SET V&N 
11 016454 ooRi R2,R3 :R2=R3=000000. ccC=0100 
eet¢ mee 103403 BCS CMPO 
801 1 102402 BVS CMPO 
14 016462 1001 CMPO 
15 016464 100001 BPL +4 
1g 016466 104000 CMPO: HLT 
18 016470 010002 MOV RO,R2 :RO=R2 
19 016472 010203 MOV R2,R35 :RO=R2=R3 
016474 3 ADD R2,R3 3R3=2*RO0 
1 016476 2 ASL 2 3R2=2*RO 
¢ 016500 020203 CMP R2,R3 :R2=R3=2*RO 
016502 001401 BEQ +4 
016504 HLT sERROR! CHECK ADD INSTRUCTION 
>THE FOLLOWING SUBTEST SHIFTS A BIT THROUGH R2 AND R5 AND DOES A 
:BIT TEST (BIT) USING R2 AND RS. 
8028 016506 005002 CLR R2 | 





=. 
CEOKC=E POP 11/70 CPU EXERCISER MACY! 30A(1052) 12-MAR-8C 11:30 PAGE 47-64 
CEQKCE.P11 ~—-'12 11:27 117 CHECK BINARY OPS USING ADDRESS MODE 0 SEQ 0089 
01651 INC R2 :R2=1 
80 18815 80060 BR 2$ 
1 016514 1$: ASL Re 
16516 1 BMI d 
6 1 2$: MOV _—R2. RS 
80 169 SCC SET CC'S 
5 01 BIT R2.R5 “R2=R5, CC=X001 
0 O16 2 BCC 3$ 
16 10240) BVS 3$ 
8038 016 13 BNE 1$ 
8039 016534 104000 3$: HLT 
8040 016536 010205 L$: MOV _——R2. RS +R2 AND R5=100000(OCTAL) 
8041 016540 57 ccc “CLEAR CC’S ° 
8042 016542 030205 BIT R2,R5 “R2=R5, CC=1000 
8043 016544 100401 BM] ¢ 
8044 016546 104000 HLT 
8046 016550 005002 CLR —s- R2 
016552 0002 SCC “SET CC'S 
016554 059002 BIS RO,R2 “RO=PC (NON-ZERIO DATA), CC=x001 
8049 016556 103002 BCC BIS0 
8050 016560 102401 BVS _—-BISO 
8051 016 001001 BNE +4 
8052 016564 104000 BISO: HLT 
8054 016566 010003 MOV _—RO. RB 
8055 016570 000277 SCC =(C=1111 
8056 016572 000244 CL2 
8057 016574 040003 BIC RO.R3 ;RO=R3, CC=0101 
8058 016576 103003 BCC BICO 
8059 016600 102402 BVS —-BICO 
8060 016602 001001 BICO 
ie Sreret 100 OO BICO HLT ™ 
oes 
016610 010004 RO,R4 
5 016612 005104 COM 
016614 040004 BIC RO.R4 :RO=COMPLEMENT OF R4, R4 REMAINS UNCHANGED 
016616 005104 COM sR 
016620 CMP séROLRG *RO=R4 
016622 1401 BEQ ay 
70 01 HLT 
8072 01 0 MOV _—RO.RS 
01 005104 COM 
8074 01 010403 MOV _—sRG_RB =R3=R4 
8075 016634 050003 BIS RO-R3 “R3=COMPLEMENT OF RO, CC=1001 
8076 01 103001 BCC BISOA 
80 16640 100401 BMI + 
80 16642 104000 BISOA: HLT 
8079 016644 005203 INC R3 -R3=0 AFTER INC 
8080 016646 001401 BEO +6 
8081 016650 104000 HLT 
8082 016652 010304 MOV _—sR3LRG “R3=R4=0 
016654 005103 COM —séRB *R3=177777 
8084 016656 000261 SEC “SET C 


Mm 7 
2-MAR-80 11:30 PAGE 


CEQKC~E PDP 11/70 CPU XERCISER MACY11 30A(1052) 1 47-65 
CEQKCE.P11 ~=—-'12 1:27 117 CHECK BINARY OPS USING ADDRESS MODE 0 SEQ 0090 
8085 016660 ROR R4 :R4=1 
16662 ADD R3,R4 eR eH 1 99999 RG=077777, CC=0011 
1 103003 BCC ADDO 
1 1 BVC ADDO 
16670 001401 BEQ ADDO 
166 1 1 BPL +4 
16674 1 ADDO: HLT 
é 16676 010700 MOV PC_RO :RO=PC 
16 CMP (RO) +, (RO)+ *RO=RO+4 
804 16 ? CMP RO.PC *PC=PC+4=RO 
16 1401 BEQ +4 
809% 16706 104000 HLT 
5098 016710 010700 MOV PC.RO :RO=PC 
16712 962700 000010 ADD #10,RO *RO=PC+10(8) 
8100 016716 01 MOV RO,R2 *R2=RO 
8101 016 020700 CMP PC.RO *RO=PC 
8102 016 901002 BNE CMPOA 
810 16724 0 CMP R2,RO :R2=RO 
104 016 1401 BEQ +4 
8105 016 104000 CMPOA: HLT 
ad SL AAA KEEREKRERERAERAEEERERERERKEREREREEKAKEEEERKEEKKERRRERREEREERER 
(3) “*TEST 20 CHECK BINARY OPS USING ADDRESS MODE 1 
(3) 3 : KAKA AAAAKAAAKAAEARAEAEEKEAKEKKAKAEKKAKEAKEKEAAEKAKEAERAEAEAKEAKKEE 
(2) 
(2) 016 TST20: SCOPE , 
(2) 016 Me 7 000020 001252 MOVB #20,a¢STSTNM :LOAD TEST NUMBER 
(2) 016742 013737 001252 177570 MOV a*STSTNM, a#DISPLAY * DISPLAY TEST NUMBER 
8107 016750 02 BR +6 sRESERVE TWO WORDS 
8108 016752 “WORD 0 “RESERVED FOR SOURCE DATA 
8109 016754 000000 “WORD 0 “RESERVED FOR DESTINATION DATA 
110 016756 010704 MOV PC RG 
8111 016760 005744 TST -(R4 
112 016762 005044 CLR -(R4) :R4 POINTS TO DESTINATION DATA 
113 016764 010403 MOV R4,R3 
81 14 016766 005043 CLR ~(R3) :R3 POINTS TO SOUCE DATA 
8116 016770 005113 COM (R3) = (R3)=177777 
117 016772 005214 INC (R4) = (RG) =000001 
8118 16774 SEV “SET V 
8119 016776 061314 ADD (R3), (R4) : (R3)=177777, (R4)=000000, CC=0101 
1 1 103002 Bcc ADD1 
121 01 102401 BVS ADD1 
1¢2 01 001401 BEQ +6 
1¢3 01 104000 ADDI: HLT 
125 017010 000277 SCC 
81 or 701e 900250 CLN 
8127 017014 021 14 CMP (R3), (R4) + (R3)=177777, (R4)=000000, CC=1000 
8128 017016 103403 BCS CMP) 
8129 01 102402 BVS CMP1 
8130 017022 001401 BEQ CMP1 
8131 017024 100401 BMI “+h 
8132 01 104000 CMP1: HLT 
oraz 017030 000277 SCC 


N 7 
CEQKC=€ POP 11/70 CPU EXERCISER MACY11 30A(1052) 12=MAR-80 11:30 PAGE 47-66 
CEQKCE .P11 12=MAR=80 11:27 T20 CHECK BINARY OPS USING ADDRESS MODE 1 SEQ 0091 
8135 0170 64 CLZ 
81 1 1314 BIT (R3). (R4) : (R3)=177777, (R4)=000000, CC=0101 
81 1 1 BCC BITTi 
1 10240 BVS BITT1 
1 1 401 BE +4 
140 104000 BITT1: HLT 
14¢ 1 77 SCC 
143 01 65 +CLC!CLZ 
144 114 COM (R4) + (R4)=177777 
145 01 161314 SUB (R3), (R4) : (R3)=177777, (R4)=000000, CC=0100 
146 103402 BCS SUB 
8147 017060 102401 BVS SUB1 
148 017062 001401 BEQ +4 
169 17064 104000 SUB1: HLT 
8151 01 105013 CLRB =. (R33) = (R3)=177400 
81 32 1 000313 (R3) * (R3)=000377 
15 1 ss he SEN 
8154 74 011314 (R3), (R4) : (R3)=(R4)=000377 
8155 017076 100001 BPL +4 
8136 giz 104 HLT 
157 017102 000314 S : (R3)=000377, (R4)=177400 
8158 0171 990 3 +SEC! SEV “SET C & V 
8159 017106 051314 BIS (R3), (R4) + (R3)=000377, (R4)=177777, CC=1001 
8160 917110 1 BCC BIS1 
161 017112 102401 BVS BIS1 
162 017114 100401 BMI +4 
Lb 017116 BIS1: HLT 
165 017120 041314 BIC (R3), (R4) : (R3)=000377, (R4)=177400, CC=1001 
166 giz 103002 BCC BIC1 
167 017124 102401 BVS BIC1 
168 171 100401 BMI +4 
169 171 04000 BIC1: HLT 
171 0171 900262 SEV :SET V 
178 171 1314 CMP (R3), (R4) = (R3)=000377, (R4)=177400, CC=0001 
1 17136 103003 BCC CMP1A 
174 017140 102402 BVS CMP1A 
175 01714 1401 BEQ CMP 1A 
176 17144 1 1 BPL “+6 
: 17146 104000 CMP1A: HLT 
159 017150 005013 CLR (R3) = (R3) =000000 
1 17152 000261 SEC 
181 017154 006013 ROR (R3) : (R3)=100000 
1 17156 or 14 MOV (R3), (R4) > (R3) =(R4)=100000 
81 12160 5114 COM (R4) * (R4)=077777 
81 17162 161314 SUB (R3), (R4) > (R3)=100000, (R4)=177777, CC=1011 
185 017164 103002 BCC SUB1A 
8186 017166 102001 BVC SUB1A 
8187 0171 100401 BMI +4 
3188 017172 104000 SUB1A: HLT 
8190 017174 000277 SCC 
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PAGE 47-67 


12-MAR-80 11:30 
CHECK BINARY OPS USING ADDRESS MODE 1 
SUB (R3), (R4) = (R3)=100000, (R4)=077777, CC=0000 
BLOS § SUB1B “BRANCH IF COR Z IS SET 
BVS SUB 1B 
BPL +4 
HLT 
MOV (R3), (R4) : (R3)=100000, (R4)=100000, CC=1000 
BEQ MOV1 
BMI +4 
HLT 
ADD (R3), (R4) : (R3)=100000, (R4)=000000, CC=0111 
BCC ADD1A 
BVC ADD1A 
BNE ADD1A 
BPL +4 
HLT 
COM 3) : (R3)=077777 
MOV (R3), (R4) = (RG) =077777 
ADD (R3) . (RG) : (R3)=077777, (R4)=177776, CC=1010 
BCS D1B 
BvC 1B 
BMI +4 
HLT 
ADD #2, (RG) | 
TST (R4) : CHECK FINAL RESULT 
tT +4 


> 2 REEEAEAARAERAAEKEAAAAAAAEEAEEAEAREAACREREARAEEEAAAEEAEEEEAERAREREEREK 


“*TEST 21 


os RAEEAEKAEKEARAEKAEAAKARAEKEREEAAEAAEEKEEAAERAAEEREAAAEAREERAEAAERREREEE 


TST21: 


SCOPE 


CHECK BINARY BYTE OPS USING ADDRESS MODE 1 


#21, aeSTSTNM :LOAD TEST NUMBER 
OFS TSTNMGADISPLAY = :DISPLAY TEST NUMBER 

0 

PCRS 

-(R5) 

~(R5) = (R5)=000000 

R5,R2 

~(R2) : (R2) =000000 

R2 *R2 POINTS TO ODD BYTE 

(R2) = (R2)=177400 

(R2). (RS) = (R2)=177400, (R5)=000377, CC=1001 
MOVB1 

MOVB1 

Move! 

(RS) =CHECK RESULT 
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70 CPU ARETE SER MACY11 me 


MOVB1 : 


2 


CMPB1 : 


B1TB1: 


B1SB1: 


BICBI: 


BICBIA: 


C 
12-MAR-80 11:30 


PAGE 47-68 
CHECK BINARY BYTE OPS USING ADDRESS MODE 1 


BEQ 
HLT 


~*4 


(R5) , (R2) 
C 


MPB i 


. +4 


R3 


R3 
B R3,(R5) 
+SEC! SEV! SEN 


(R2), (RS) 
B1TBi 
BITB1 

+4 
(R2),(R5) 
B1SB1 


. +4 


(R2), (R5) 
BICBi 
BICB1 

+4 


(R2) 
(R2) , (RS) 
. +4 

(R2) 
A 


(R5) 
BI(Bi 
(R2) 
+4 


SHIFT nee UNTIL 

he 

*(R2)=1 

: (R5)=00 

: (RS)=000177 

; (RS)=000177, (R2)=100000, CC=1010 


:R3=100000 
tT CY GN 
= (R2)=100000, (R5)=100177. CC=0101 


; (R2)=100000, (R5)=100377, CC=1001 


3 (R2)=100000, (R5)=100177, CC=0001 


; (R2)=077400, (R5)=100177 


; (R5)=100177, (R2)=000000, CC=0100 


sRESERVE TWO WORDS FOR DATA 
sSOURCE DATA 

:DEST DATA 

:R5 POINTS TO DEST ODD BYTE 


;R4 POINTS TO DEST EVEN BYTE 


SEQ 0093 





SEQ 0094 


8 
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CHECK BINARY BYTE OPS USING ADDRESS MODE 1 
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CEQKC-E PDP 11/70 CPU MERC ISER MACY11 30A(1052) 12-MAR-B0 11:30 PAGE 47-70 
CEQKCE .P1 12 1: T22 CHECK BINARY WORD OPS USING ADDRESS MODE 2 & 4 SEQ 0095 
7672 57 ccc 
7674 SEV 
767: (R2)+,(RS)+ : (R2)=177777, (RS)=000000, CC=0161 
1 BCC ADD2 
1 1 BVS ADD2 
re 1401 +4 
1 ADD2: HLT 
orig SEV ;SET V 
7712 026 000001 CMP -(R5) #1 :(R5)=000000, CC=1001 
1 BCC CMP2 
102401 BVS CMP 2 
100401 BMI +4 


CMP2: HLT 
=(RZ). (RS) 3 (R2)=177777, (R5)=177777,CC=1001 


BM! +4 
104000 BIS2: HLT 


OOoCoOoO COOOCOCCOCOCOOOO OOOo°oO°OOo esseoeoo 
SgeeeS BASS 
—O 
rs 
Nm 
wi 
@w 
me 
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77 4 CLZ 
7742 ~«d1 45 SUB (R2)+,-(R5) : (R2)=177777, (RS)=000000, CC=0100 
7744 10 BCS SUB2 
7746 102401 BVS SUB2 
7750 001401 BEQ +4 
7752 «106 SUB2: H#HLT 
7754 005442 NEG -(R2) : (R2)=000001 
7756 005115 COM (RS) :(R5)=177777 
7760 277 SCC 
7762 530 CLN 
7764 oasis BIC (R2)+, (R5)+ : (R2)=000001, (R5)=177776, CC=1001 
017766 103003 BCC BIC2 
1 8 7770 102402 BVS BIC 
7772 «2001401 BEQ BIC 
e 7774 100401 BM] +4 
: 7776 104000 BIC2: HLT 
012742 125252 MOV #125252 ,-(R2) 
012245 MOV (R2)+,-(R5) 
005125 C 5)+ : (R5)=052525 
10 000 SEV 
12 FS ae BIT -(R2) .-(R5) : (R2)=125252, (R5)=052525, CC=0101 
1 14 103002 BCC BITT2 
oes 16 102401 BVS BITT2 
2 904000 BITT2 a? 
: L 
399 052225 BIS (R2)+,(R5)+ : (R2)=125252, (R5)=177777, CC=1001 
103002 BCC BIS2A 
102401 BVS BIS2A 
100401 BM +4 


BIS2A: 


£88 
$3 
RE 
= 


F 8 
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CEQKCE .P11 CHECK BINARY WORD OPS USING ADDRESS MODE 2 & 4 
8403 042745 125252 BIC #125252,-(R5) s (R5)=05 525 
orbe 125 COM (R5)+ 7 (R5)=125252 
6245 CMP =(R2) ,-(R5) 
1401 BEQ +4 
104000 HLT 
01 CLR (R2) 
my 12 COM (R2)+ 3 (R2)=177777 
11 162742 000001 SUB #1,-(R2) :(R2)=177776, CC=1000 
aig 10 BCS SUB2A 
a 102401 BVS SUB2A 
14 100401 BM! - +4 
8415 104000 SUB2A: HLT 
aris 010702 MOV PC,R GET ow PC 
841 010205 MOV R2,R ;MO 
8418 124245 1$: CMPB -(R2) ,-(R5) ‘COMPARE AL PREVIOUS MEMORY ADDRESSES 
8419 001401 BEQ +4 
& 104000 HLT 7 ERROR! 
e 1 esp tle 001610 CMP o- ; CHECK FOR LOW LIMIT 
84 ¢ SRRRRARRR ERA RARERE RRA ERE EREREARAARARAEEREARRERERERE ARERR REED 
(5) :ATEST 23 CHECK BINARY BYTE OPS USING ADDRESS MODE 2 & 4 
(3) FRERRARERA ERE RRE TAREE RARER ERAAEAAEREAEAARARAR ARERR ERR RRA E 
(2) 
(2) 020114 TST23: SCOPE 
tt Osi be ay te 000023 001252 MOVB #23 ,a4STSTNM LOAD TEST NUMBER 
(2) 13 737 001252 177570 MOV @#$TSTNM, a#DI SPLAY DISPLAY TEST NUMBER 
8424 0201 BR . +6 RESERVE He WORDS 
8425 134 -WORD 0 s SOURCE DAT 
ass 136 000000 -WORD 0 ‘BEST INATION DATA 
7 140 010703 MOV PC ,R3 
8428 020142 005743 TST ~(R3) 


EEF 


sFIRST CHECK -_ INCREMENT /DE CREMENT 


1 020144 010300 MOV ° ;RO=ADDRESS OF MOV ABOVE 
Pts nsape 010002 MOV RO.R2 [R2=RO 
RA 150 005302 DEC R2 :R2=RO~1 
Be 020152 010604 MOV SP .R4 
8435 020154 010605 MOV SP,R 
or 156 005745 TST -(R5) ;R5=SP-2 
84 160 114046 MOVB -(RO) ,~(SP) sRO=RO-1, SP=SP-2 
8&4 162 020506 CMP R5,SP ;R5=SP 
8440 164 001021 BNE BINS 
8441 166 020200 CMP R2,RO sR2=R0 
ones 170 001017 BNE BINB 
8443 020172 1220 CMPB (RO) +, (SP)+ :RO=RO+1, SP=SP+2 
8444 atta 020406 CMP R4,SP :R4=SP (SP BACK TO ORIGINAL ) 
nk 020176 001014 BNE BINS 
8447 ashy 020003 CMP RO,R3 ;RO=R3 (RO BACK TO ORIGINAL) 
8448 2 001012 BNE BINS 
8449 020204 1 B1SB = (SP) ,-(RO) ;SP=SP-2, RO=RO0-1 
8450 020506 CMP R5,SP ;R5=SP 
8451 210 001007 BNE BINB 
8452 020212 020200 CMP R2,RO ;R2=RO 


2 ge 
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Ro 
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8 
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000004 
112737 
013737 


G 8 
MERCI SER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-72 
11: ? T23 


000200 
000377 


000177 
000000 


sia 
001252 


CHECK BINARY BYTE OPS GSING. ADDRESS MODE 2 &@ 4 


BNE BINB 
BICB (SP)+,(RO)+ see te ot (SP BACK TO ORIGINAL? 


CMP R4,SP *R4=S 
BNE BINS 
CMP ROR :RO=R3 . 
BEO +4 
BINS: HLT 
MOV :RO= R3 
MOVB i -(R3) *R3=ODD BYTE (UPPER BYTE) 
MOVE 77 .=(R3) = (R3)=100377, R3=EVEN BYTE (LOWER BYTE) 
MOVB ted -(R4) :R4= ODD BYTE (UPPER BYTE) 
MOVE #0,~(R4) = (R4)=077400, R4=EVEN BYTE (LOWER BYTE) 
.+ 
HLT 
BISB  (R3)+,(R4)+ = (R3)=100377, (R4)=077777 
BMi +4 
HLT 
CMPB ss (R33) +, (RG) + :CC=0x10 
BCS CMPB2 
BvC CMPB2 
.+ 
CMPB2: HLT 
SEC :SET C BIT. CC=0x11 
BITB -(R3),-(R4) *CC=X101 
BCC B1TB2 
BVS BITB2 
BEQ +4 
BITB2: HLT 
C2 =f 
BICB <-(R3),-(R4) : (R3)=100377, (R4)=077400 
~ +4 


i e- RAECEAAEAAAAKRARAEAARARRERAEAEERAAEAAKERAARERARERARERARAERAEAREARREAREE 


“*TEST 26 CHECK BINARY WORD OPS USING ADDRESS MODES 3 
fT RARER ARAEREREAERAREREEREREERERAAAAERAARARERRERERAERAAERRERRRER EERE 
TST24: SCOPE 
MOVB #24,aa$TS : LOAD TEST 
MOV av$TSTNM, a#D I SPLAY ISPLAY TEST 
BR 2$ = RESERVE * SPARE FOR DATA AND ADDRESSES 
.WORD O ‘CONTAINS ADDRESS OF SOURCE DATA 
“WORD 0 *CONTAINS ADDRESS OF DEST DATA 
-WORD 0 =CONTAINS SOURCE DA 
-WORD 0 “CONTAINS DEST DATA 
2$: MOV PC,R1 
MOV R1,RO :SET SCOPE PTR 
CMP -(RO) ,-(RO) = ADJUS 
MOV RO.R5 :R5 POINTS TO DEST DATA 


;SUB 4 FROM R 
:R5 POINTS TO ADDRESS OF DEST DATA 





CEQKC-E PDP 11/70 CPU 
CEQKCE .P11 12 
3 7% «(01 
ee 
8 01000 
: Be 
1 
8509 005014 
510 19 000277 
511 1 44 
pat 14 163235 
Hed 1 03402 
514 102401 
8515 0 00140 
21§ 0 4 104 
51 
518 052752 
519 0 755 
o2 8 163235 
521 0 1035002 
5 ¢ 2 102001 
5 100401 
: ¢ 0 104000 
85 $ 0 5414 
5 
5 00 
S2 
5 
8531 
o2 
5 
5 
535 
5 
8537 
85 
85 
8540 
8541 
Bee 
54 
8544 
8545 
8 
854 
854 
854 
(3) 
2 
3) 020524 eps 
(2) QO $36 112737 
‘¢) 5 013737 
85 542 000406 
8551 544 000000 
8552 020546 000000 


KXERCISER MACY11 30A(1052) 
11:27 724 


SUB3: 


SUB3A: 


ADDS: 


BIC3: 


12-MAR-80 11:30 


8 
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CHECK BINARY WORD OPS USING ADDRESS MODES 3 @ 5 


a(R2)+,a(R5)+ 
SuB3 

SuUB3 

+4 

pe "pm 
a(R2)+, a(R5)+ 
SUB3A 

SUB3A 

+4 

(R4) 

@-(R2) ,a-(R5) 
+4 

— ee 


a-(R2) 
a ate 
ADD 


@—(R2) ,a(R5)+ 
BICS 


+4 


a-(R5) 
st acca 
.+ 


:R4 POINTS TO DEST DATA 


:R3 POINTS TO SOURCE D 

:R2 POINTS TO ADDRESS OF SOURCE DATA 
PRESET SOURCE DATA 

;PRESET DEST DATA 


: (R3)=000000, (R4)=000000, CC=0100 


; (R3)=100000 
(R4)= 


000001 
: (R3)=100000, (R4)=100001, CC=1011 


SR 00000 
(R3)=100000, (R4)=077777 


; (R3)=077777, (R4)=100000 


3 (R4)=077777 
: (R3)=077777, (R4)=077777 


CREAR AAAEAEAARAAEAEEAEEEEEEARKAEAAAAEKEEAAAARARAAEERARAAEREEAREREEER EE 


CHECK BINARY BYTE OPS USING ADDRESS MODES 3 & 5 


“*TEST 25 


FLARE RARER EERE AEE EREREEAEEEEEERERARRERERAEARAERER ER ER AREER RS 


TST25: 


SCOPE 


#25 ,@ASTSTNM ; LOAD TEST 
aySTSTNM, > BNDISPLAY sDISPLAY TEST 
1$ ;RESERVE SPACE FOR ADDRESS AND DaT 
0 ;CONTAINS ADDRESS OF SOURCE DATA (EVEN ALS 
0 :CONTAINS ADDRESS OF SOURCE DATA (ODD BYTE) 


SEQ 0098 


mn 
on 
mn 


Ramone FS 
BERR EA 


2299 


ey 


JSSESS 


Go.00 00000000 
vi 


Jao RsoN 


0p 09 00 Co 


eee 





t. 
506 
JC 
504 


70 CPU E 
-80 


Se 


£ssc 

eve 
VER 

ene 


=28 
Ree 


_—_- —§—O—-0O——-—-00--O— — se i 

ae) Ss nrROStN SXRoo-= 

E BSRSReeE ON eRe ES NEERY 
WWW =VWIWWWS 9 18 


— — 
Sus 
—~WWw 


S8x8 
¥ 
S 


in MACY11 30A(1052) 
1:27 T 


12-MAR-80 11:30 
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11: 25 CHECK BINARY BYTE OPS USING ADDRESS MODES 3 @ 5 


.WORD 0 :CONTAINS ADDRESS OF DEST DATA (EVEN BYTE) 
“WORD 0 *CONTAINS ADDRESS OF DEST DATA (ODD BYTE) 
“WORD 0 *CONTAINS SOURCE DATA 
“WORD 0 :CONTAINS DEST DATA 
1$: MOV PC,RO 
CMP -(RO) ,-(RO) :RO=ADDRESS OF DEST DATA 
MOV RO,R3 “R3 ve we 
MOV R3_R5 : os os 
TST ~(R3) “SUB 2 FROM R3 
MOV RO,-(R3) *R3 POINTS TO ADDRESS OF DEST DATA 
INC (R3) :ODD BYTE 
MOV RO,-(R3) ‘EVEN BYTE 
MOV R3, 
TST -(RO :RO=ADDRESS OF SOURCE DATA 
MOV RO, -(R4) *R4 POINTS TO ADDRESS OF SOURCE DATA 
INC (RS) -ODD BYTE 
MOV RO,-(R4) “EVEN BYTE 
SEC :SET CARRY 
177001 MOV #177001,a(R4)+ 
000200 MOVB  #200,a(R4)+ : SOURCE DATA=100001 
MOVB  a-(R4),a(R3)+ 
MOVE @-(R4) a(R3)* :DEST DATA=000600 
* 
HLT -ERROR! MOV DOES AFFECT C BIT IN PSW 
000600 COP #600, (RS) =CHECK DEST DATA 
.* 
HLT sERROR! INCORRECT RESULT 
CMP -(R3) ,-(R3) “POINT R4 BACK TO EVEN BYTE 
BISB a(R4)+,a(R3)+ 
BISB a(R4)+.a(R3)+  <=DEST DATA=100601 
100601 CMe #100604 . (RS) “CHECK RESULT 
‘ a 
HLT :ERROR! INCORRECT DEST DATA AFTER BISB 
BICB a@(R4),a-(R3) 
BICB a-(R4).a-(R3) 
BITB a(R4)+,a(R3)+ 
BITB3 
BITB @-(R4) ,@(R3)* 
<' 
BITB3: HLT 
CMPB ss (RG) +, a= (R3) 
BNE C 
CMPB ss (RG) +, a-(R3) 
BEO +4 
FL ERARAARAERAEEREEREREEREEEEEREERAEEAERERERERERERERARER EAE RE EES 
“*TEST 26 CHECK BINARY OPS USING ADDRESS MODE 6 
STARA RERRAEAREREEE REE RARER EAAAEERAEREAERRERARRERRRRRR REED 
TST26: SCOPE 
000026 001252 MOVB #26,a4STSTNM :LOAD TEST NUMBER 
001252 177570 MOV a#$TSTNM,a#DISPLAY * :DISPLAY TEST NUMBER 
BR +6 sRESERVE TWO LOCATIONS 





SEQ 0099 
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BU EMEC A ER MACY11 


020734 


020734 


020734 


020734 


020734 


020734 


30A( 1052) 
T26 


SDATA: 
DDATA: 


1$: 


ADD6: 


SUB6: 


1$: 


J 
12-MAR-80 11:30 PAGE 47-75 
CHECK BINARY OPS USING ADDRESS MODE 6 


0 RESERVED FOR SOURCE DAT 


0 SRESERVED FOR DESTINATION DATA 


@4F ACTOR ,R2 GET RELOCATION FACTOR AND USE AS AN 
R2,R5 ; INDEX VALUE TO POINT 7% DATA 
; PRESET nt gh he DAT 


DATA‘5) 
#1, SDATA(2) “THIS ROUTSINE PUT A 1 BIT INTO EVERY 
SDATAC2), DDATA(5) -OTHER BIT POSITION IN THE DEST- 
SAT A(2) -INATION ADDRESS (52525) 
SDATAC2) 
#52525 ,DOATA(S) :CHECK RESULT 
+4 
xa sERROR! INCORRECT RESULT 


TA(2) 
DDATACS). SDATA(2) 
—e “DDATA(5) 


;ERROR! BIT INST FAILED 
125252 


; SOURCE DATA=125252 


DDATA(S) * DDATA= 
SDATAC2), .DDATA(S) 

: ERROR! 
SDATA(2) ,DDATA(5) 
ADD6 


ADD6 
+4 


CMP INST FAILED 


SDATA(2) ; SDATA=52524 
SDATA(2) ,DDATA(5) 
SUB6 


+4 
#377 RO :RO=177777 (MOVB %R EXTENDS SIGN) 


DDATA(5) ,RO 


+4 


SDATA(2) ,DDATA(5) 
SDATA(2) 

SDATA(2) 

SDATA(2) ,DDATA(5) 
+4 

SDATA(2) 

ere! POAIALS) 
a? 


SDATA(2) ,RO 
1$ 


SLUR ARARAERRARERERREAE RAE REEREERREERAAA AERA AREA ARATE RR RE RS 


LC 


Sean USS Eee ERE eS 


& 
a 


ease 


a 


epee heenes 





R88 
mrnr 
Ro 


mr 


BRNO 


BREE BRSEKS SSRN 


SENS 


W\WWNWWGW 


tage 
001252 


021374 


021374 


021374 
021374 


021376 


000030 
001252 


PDP 11/70 CPU EXERC SER MACY11 
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021374 


021374 


021576 


021376 


021376 
021376 


021376 


12-MAR-80 11:30 PAGE 47-76 
CHECK BINARY BYTE OPS USING ADDRESS MODE 6 


s*TEST 27 CHECK BINARY BYTE OPS USING ADDRESS MODE 6 


£ {AAAAAAAAAAARAAEARARAEAARATAAAAAARAAARARARAARARAAAARARARHAARARERAAED 


TST27: SCOPE 
MOVB 


30A(1052) 
T27 


#27 ,aw$TS ; LOAD TEST NUMBER 
w$ 


MOV TNM, BADISPLAY DISPLAY TEST NUMBER 
:NOTE: SDATAB(2), AND DDATAB(4) REFERE ENCE’ EVEN BYTE OF SOURCE & DEST DATA 


“AND SDATAB(3), AND DNDDATAB(S) FEFERENCE ODD BYTE OF SOURCE & DEST DATA 
MOV a#F ACTOR ,R2 ;GET INDEX VALUE 
MOV R2.R4 “R2 FOR SOURCE EVEN BYTE INDEX, R4 FOR 
MOV R4,R3 “DEST ODD BYTE. R3 FOR SOURCE EVEN 
INC R3 “AND RS FOR DEST ODD BYTE 
MOV R3.R5 
SEC :SET CARRY 
MOV #125252, SDATAB(2) 
MOVB  #177125.SDATAB(3) :SOURCE DATA = 052652 
MOV SDATAB(2) ,DDATAB(4) 
BIS #125125, DDATAB(4) :DEST DATA = 177777 
BITB SDATAS(S) SDATAB(3) 
BEQ +6 

BITB6: HLT 
81 cB SDATAB(2) .DDATAB(4) 
HLT sERROR MOV,BIS.BIT:BIC DO NOT AFFECT °C’ 
CMPB —s- SDATAB(3) ,DDATAB(4) 
BEQ +6 
HLT 
BICB _ SDATAB(3) ,DDATAR(5) 
CMPB ss SDATAB(2) ,DDATAB(5) 
BEQ +4 
HLT 
BITB DDATAB(5) ,DDATAB(4) 
BEQ +4 
HLT 
BR UB7 sRESERVE TwO 


WORDS 
sRESERVED FOR SOURCE DATA 
;RESERVED FOR DEST DATA 


SDATAB: .WORD 0 
DDATAB: .WORD 0 


{RARE RRAEREEAEREREREEEEEREREEEAEREREEREEREREERKERERERRREREREREREE 


SSTEST 30 CHECK BINARY — OPS USING ADDRESS MODE 7 
:* R2=ADDRESS OF SOURCE DATA, AND R35= ADDRESS OF DEST DATA 
TTT TTT TTT et iciihioiiiciciinicoiheie 
TST30: SCOPE 
MOVB #30, a4STSTNM :LOAD TEST NUMBER 
MOV @4$TSTNM,@4DI SPLAY ; DISPLAY TEST R 
SBIN7: .WORD 0 :CONTAINS ADDRESS OF SOURCE DATA 
DBIN7: .WORD 0 ;CONTAINS ADDRESS ef — DATA 
-WORD 0 = CONTAINS SOURCE DAT 
-WORD 0 * CONTAINS DEST bata’ 
UB7: MOV PC,RO 


SEQ 0101 








7 
CEQKC-E PDP 11/70 CPU mERC TS ER MACY11 SEALS) wits ane 11:30 PAGE 47-77 
CEQKCE .P11 12-MAR ? T30 K BINARY WORD OPS USING ADDRESS MODE 7 SEQ 0102 
8705 1430 024060 CMP -(RO) ,-(RO) 
8 14 4 MOV R 
4 14 2424 CMP ~(R2) ,=(R2) 
a 1436 01001 MOV RO, (R2) 
8 1 01 MOV e 
710 1442 024 CMP -(RO) ,-(R3) 
ay 1 010013 MOV RO, (R3) 
a 1446 000261 SEC 
8714 1450 Ors 100000 177740 MOV #100000,@SBIN7 ;SOURCE DATA = 100000 
8715 1456 01 177734 177734 MOV SSBIN?, speein’ :DEST DATA = 100000 
orig 8 1464 103001 BCC MOV? 
871 1 100401 BM! +4 ( 
ay 14 104 MOV7: HLT 
71 14 177722 ASL @aDBIN7 :DEST DATA = 000000 
720 1476 102001 BVC +4 
8721 138 001401 +4 
: ‘ 1 104000 HLT 
8724 1504 + {fhe 177706 177706 CMP @SBIN7,aDB1IN7 3 (R2)=100000, (R3)=000000 
8 021512 103402 BCS CMP7 
8 8 1514 102401 BVS CMP7 
: 1516 100401 BM! +4 
. 8 021520 104000 CMP7: HLT 
8 1366 167777 177670 177670 SUB @SBIN7 ,aDBIN7 ; (R2)=100000, (R3)=100000 
8731 0215 3003 BCC SUB7 
8 0 A2ee 2 BYVC SUB7 
87335 0215 001401 BEQ SUB7 
8734 021536 100401 BMI +4 
ore 021540 000 SUB7: HLT 
8737 021542 77 177650 ASR aSBIN7 ae 140000 
8 1546 067777 177644 177644 ADD @SBIN7 ,@aDBIN7 (R2)=140000. (R3)=040000 
8 1554 103003 BCC ADD7 
740 1328 102002 BVC ADD7 
741 1 001401 BEQ ADD? 
742 021562 BPL +4 
OF 1564 104000 ADND?7: HLT 
aris 021566 047777 177624 177624 BIC @SBIN7 ,@DBIN7 : (R2)=140000, (R3)=000000 
yg Osta 001401 BEQ +4 
B78 1576 104 HLT 
749 1600 057777 177612 177612 BIS @SBIN7,Q@DBIN7 ;(R2)=140000, (R3)=140000 
8750 1606 100401 BMI . +4 
eh 021610 104000 HLT 
875 st 612 027777 177600 177600 CMP @SBIN7 ,@DBIN7 | 
8754 0 1o38 001401 BEQ +4 | 
8755 021622 104000 HLT 
8759 SAREE REA ER ERE REE RRR ERE ERR ERE ER ARR ERAAERR ER 
(3) *STEST 31 SOME SELLA OPERATIONS INVOLVING THE PC 
(4) :* NOTE: NONE OF THESE OPERATIONS SHOULD AFFECT THE PC 
(3) SRR EERE EERE REA AERA RARE ERR RER REE E RR ER 





m 8 
CEQKC-E PDP 11/70 CPU EXERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-78 
CEQKCE P11 12=MAR-80 11: 131 SOME MISCELLANEOUS OPERATIONS INVOLVING THE PC SEQ 0103 

(2) 0216246 TST31: SCOPE 

(2) 1636 of 237 990033 90 MOVB #31,a4$ :LOAD TEST NUMBER 

(2) 021 013737 001252 9 36 MOV casterie. SeDISPLAY * ;DISPLAY TEST NUMBER 

7 1642 CLR RO 

761 1 000072 CLR 1$ 

7 16 10707 MOV PC,PC 

7 165 120707 CMPB —s_- PC, PC 

764 16 030707 BIT PC,PC 

765 021 960007 ADD RO, 
8766 1660 1 7 TSTB. Ss PC 
876 1 507 ADC PC 

7 664 021007 CMP (RO) ,PC 

7 1666 1 1007 BITB  (RO),PC 

16 7 000000 ADD #0,PC 

8771 167% 707 001604 CMP a#F ACTOR,PC 
8778 700 1 07 001604 8178 a#F ACTOR ,PC 
8774 : THE NEXT TWO INSTRUCTION CAUSE THE PROGRAM TO JUMP TO THE UNRELOCATED 
8779 *CODE AND TO RETURN ON THE FOLLOWING INST (IF THE CODE IS RELOCATED) 
776 1706 163707 001604 SUB @#FACTOR,P = JUMPS TO UNRELOCATED CODE 
8 Ie 707 001604 ADD a#F ACTOR ,PC RETURNS 

778 02171 240 NOP 
8779 021 4607 C -(SP) ,PC 
8780 021 1 7 BITB (SP)+,PC 
6781 1724 026707 000012 1$, 

782 1 166707 000006 1$,PC 
8 1 046707 000002 BIC 1$, 
hs: 18 psioad “ a +4 :BRANCH OVER 1$ 
s 0 1764 900004 RELE2: SCOPE 

(1) 1746 010702 MOV PC,R2 

(1) 021750 702 000012 ADD #12,R2 

(1) 1754 012707 044042 #RELOC PC :GO RELOCATE PROGRAM CODE 

(1) 021760 REL22: .WORD 

1 +2222222222222 LAST ADDRESS OF CODE TO BE RELOCATED 22222222222 
8787 {RRRRR RARER ARAEA RARER EREERERERRAERERERAREAREREERRY > CRRRARER EER 
(3) :ATEST 32 CHECK BINARY BYTE OPS USING ADDRESS "© 0 

( ) SRRAEREREREREEREREEERAEEEEREREEKRERRERAEREKRERRERER RE | * «R&REEEEREE 
(2) 

(53 0 1762 12767 000001 157406 MOV #1, STIMES ::DO 1 ITERATION 

4 021 TST32: SCOPE 

(2) 1772 112737 000032 001252 MOVB #32,a"STSTNM :LOAD TEST NUMBER 
J » 022000 013737 001252 177570 MOV @4STSTNM, aADISPLAY -:DISPLAY TEST NUMBER 
(1) sort START OF SECTION 3 

(1) - 3333333333333 FIRST ADDRESS TO BE RELOCATED 333333333 

(1) 022006 010700 REL3: MOV PC,RO :GET P 

(1) 19 005740 TST -(RO) :RO CONTAINS THE ADDRESS OF REL3 
(1) 12 010037 001610 MOV RO, avFRSTAD 

(1) 16 010700 MOV PC,RO =GET CURRENT PC 

(1) 162700 022020 SUB #.,RO - SUBTRACT RELOCATION FACTOR 

(1) 010037 001604 MOV RO. avF ACTOR =SAVE RELOCATION FACTOR 

(1) 10737 001262 MOV C @WSLPERR =SET LOOP ADDRESS 

(1) 7 000030 001262 ADD #30" aASLPE “ADJUST 

(1) 022042 013737 001262 001260 MOV @a¥SLPERR, SWELPADA 


a 
CEQKC-£ PDP 11/70 CPU EXERCISER MACY11 30A(1052) 12-MAR-B0 11:30 NAGE 47-79 
CEQKCE.P11 1 DoMARSBO 11:27 START OF SECTION SEQ 0104 
(1) 105737 001600 TSTB = @ANEXEC :BR IF TEST CODE TO BE EXECUTED 
(1) N40¢ BEQ 326 
(1) 167 002314 JMP ELES 
: 4 703 125252 MOV aD ¢°2. R3 
1 MOV R3.R6 ;R3=R4=125252 
8791 BICB sa R3 *R3=125252,R4=125000 
125000 CMP #7 58600.RG “CHECK RESULT 
78 1401 BEQ +4 
100 104000 HLT 
1 CLR :R3=125252,R4=0 
194 908804 BISB R3,R4 *R3=125252R4=000252 
798 106 2704 000252 CMP #252,R4 “CHECK RESULT 
11 1401 BEQ +4 
022114 104000 HLT 
116 110404 MOVB  R4G,R4 =R4=177652 
1 2 177652 CMP #177652,R4 *CHECK RESULT 
124 001401 BEQ +4 
022126 104000 HLT 
130 132704 177525 BITB #177525.R4 
134 001401 BEQ +4 
136 104000 HLT 
022140 105104 COMB —siRG 3R4=177525 
9 142 110604 MOVB  R4,R4 -R4=000125 
144 022704 000125 CMP #125,R4 “CHECK RESULT 
022150 001401 BEQ +4 
022152 104000 HLT 
154 150304 BISB ——R3.R4 =R3=125252 ,R4=000377 
136 105204 INCB RG 
160 001401 BEQ +4 
162 104000 HLT 
FERRARA REEREREEREEREREKEERERKEEREKRERERERRREREREREEREREREREREERERE 
“TEST 33 CHECK BINARY BYTE OPS USING ADDRESS MODE 7 
£ LE RRAAEAAERRKEREEEREREEEEREREREKREKEEEREREKEREREEARARREREREARKERRREREE 
164 TST33: SCOPE 
1 000033 001252 MOVB #33,a4STSTNM ;LOAD TEST 
174 001252 177570 MOV av$TSTNM, a#DISPLAY ISPLAY TEST NUMBER 
BR BINB7 *RESERVE SPACE FOR ADDRESSES & DATA 
SBINB7: .WORD *CONTAINS ADDRESS OF SOURCE EVEN BYTE 
-WORD 0 “CONTAINS ADDRESS OF SOURCE ODD BYTE 
1 “WORD 0 “CONTAINS ADDRESS OF DEST EVEN BYTE 
1 .WORD 0 “CONTAINS ADDRESS OF DEST ODD BYTE 
14 DBINB7: .WORD 0 =CONTAINS SOURCE DAT 
16 -WORD 0 *CONTAINS DEST BATA 
BINB7: MOV PC,RO 
CMP -(RO) ,-(RO) :RO = ADDRESS OF DEST DA 
177772 MOV RO,-6(RO) “LOAD ADDRES OF DEST EVEN’ BYTE DATA 
177774 MOV RO. -4(RO) 
177774 INC ~4 (RO) -LOAD ADDRESS OF DEST 0p BYTE DATA 
0 TST -(RO) 3 ‘RO= =ADDRESS OF SOURCE DAT 
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001604 
177777 
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022204 


022214 
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12=MAR-80 11: 
CHECK BINARY BYTE OPS USING ADDRESS MODE 7 
MOV RO.-10(RO) ZLOAD ADDRESS OF SOURCE EVEN BYTE DATA 
MOV RO, -6(RO) 
INC -6(RO) :LOAD ADDRESS OF SOURCE ODD BYTE DATA 
CLR R2 :SET INDEX REGISTERS 
MOV #2,R3 = @SBINB7(2); 8SB1NB/ (3) REFERENCE EVEN & 
MOV #-% RS *ODD BYTE SOURCE DATA; @DBINS7(4): @0B1NB7 (5) 
MOV #-2,R5 “REFERENCE DEST EVENG’ ODD BYTE DATA 
CLR (RO) + :PRESET SOURCE DATA 
CLR (RO) “PRESET DEST DATA 
MOV @#FACTOR,-(SP) :GET RELOCATION FACTOR 
ADD (SP), : TG INDEX VALUES 
ADD (SP) .R 
ADD (SP) R& 
ADD (SP)+, RS 
#~1,@SBINB7(3) ;=SRC DATA = 177400 
BITB #§§ #377.@SBINB7(2) :CHECK THAT EVEN BYTE WAS NOT AFFECTED 
BEQ +4 *BY MOVB INSTRUCTION 
HLT 
BISB § @SBINB7(3),aDBINB7(4) 
INCB a@DBINB7(4) >CHECK THAT BIS SET ALL BITS 
BEO +4 
HLT 
DECB @DBINB7(5) sDEST DATA = 177400 
INC @DBINB7 (4) “DEST DATA = 177401 
CMPB = @SBN87(3) , aDBINB7(5) 
BEQ +4 
HLT 
BICB § @SBINB7(3),aDBINB7(5) 
BEQ 4% 
HLT 
CLRB § @SBINB7(3) :SRC DATA = 000000 
-THIS ROUTINE SETS ALL BITS IN THE SOURCE ODD BYTE BY BISING A BIT FROM 
ATHE DEST EVEN BYTE INTO THE SOURCE ODD BYTE 
BISB @DBINB7(4) ,aSBINB7(3) 
NB7 (4) 
BCC BIS 
CMP #177400, aSBINB7 (2) = CHECK RESULT 
BEQ + 
HLT 
SWAB = @SBINB7(2) :SRC DATA = 000377 
MOVB #200,@DBINB7(5) :DEST DATA = 100000 
BIC7: BICB  @DBINB7(5),aSBINB7(2) 
@DB1NB7 (5) 
BCC BIC 
TST @SBINB7 (2) 
BEQ +4 


SEQ 0105 
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a es pu Rea Laer MACY11 


000002 


30A(1052) 
733 
HLT 


OAERR: MOV 
MOV 
BR 


BR 
1$: ADD 


2$: 


WORD 
TST 


.. 
12-MAR-80 11:30 PAGE 47-81 
CHECK BINARY BYTE OPS USING ADDRESS MODE 7 


#1. :LOAD R2 WITH ODD # 
44 ;RESERVE SPACE FOR A WORD 
0 ‘WILL CONTAIN AN ODD ADDRESS 
3)+ “STEP R3 TO POINT TO WORD ABOVE 
R3, (R3) 
) :AND MAKE ODD 
#1$.QMERRVEC :SET ODD ADDRESS & RESERVED INSTRUCTION 
avF ACTOR, a#ERRVEC 


VE 
@FVERRVEC ,@MRESVEC ;TO TRAP TO 1$ BELOW 


;SET ALL CC’S 
R2, (R2) 


R2,(R2)+ 
-(R2) 
(R2) 

(R2) 
(R2)+,R2 
-(R2) ,R2 
a-(R2) ,R2 
a(R2)+ 
a(R3)+,R2 
a(R3)+ 
a(R3)+ 
a-(R3) 
a.+7,R2 
a.-1 

2s 


#2, (SP) :ADJUST RETURN PC 

#17,2(SP) *SET CONDITION CODES ON RETURN 
#SUPSTK, SP :RESET STACK PTR 

WERPRT ,AWERRVEC :RESET TIME OUT VECTOR 
WRESERR ,a@#RESVEC 


{TUAERRREA AREA RRRRAT ERENT ERE RRR A RA RERR RRA RNRERRR EERE RETR 


TEST 34 


CHECK JUMP INSTRUCTIONS 


SERA AEAEEERERERAERERAEEEERAKAAERAERARAARAAE AERA RR ERR ARREARS SE 


SEQ 0106 


D9 
11/ RCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-82 
TY) | 12-mARBO 11:27, 136 


P11 12 CHECK JUMP INSTRUCTIONS SEQ 0107 
TST34: SCOPE 
112737 900034 001252 MOVB #34, a#STSTNM :LOAD TEST NUMBER 
gr 1252 177570 mov OFS TSTNM.@AD1SPLAY * DISPLAY TEST NUMBER 
000012 ADD #12,RO :SET ADDRESS FOR JMP INST 
6 SCC =SET CC'S 
110 JMP (RO) 
BR .+6 
CLIN :JMP INST JUMPS HERE 
BR — 


8s5 
Site 

@ 
44% 


;ERROR! INCORRECT CC*S AFTER JMP 
:SET INDICATOR 


BR +4 sRESERVE WORD FOR JMP ADDRESS 
WORD ;CONTAINS ADDRESS FOR JMP INST 


2& 
; 


—_ 
S 
Wh 
om | 
$2 
wv 
Ong 
. 
DD 
AW 


So 
ab 
oo 
— 
WW 
3 
< 
D—~O 
aa 
~~ 
P) 
WG 
—_ 


000022 ADD #22, (R3) :(R3) 1S JMP ADDRESS 

Me ; JUMP TO ADDRESS CONTAINED IN R3 
: COMPLEMENT INDICATOR 

:CHECK INDICATOR 


$5 
38 
: 


8s 
SSN 
z 


CMP RO.R3 :CHECK AUTO-INC R3 


SSSeeSssNNegeaeees AkASe 
s28 
BSe 
3 
@ 
3 


VOVCLUVCLUUUUUUGURS 





BEQ +4 
JMP3: HLT 
CLR 2 :SET INDICATOR 
MOV PC .R4 :SET UP JMP REGISTER 
= +a :SET UP CHECK REGISTER 
COM Re : COMPLEMENT INDICATOR 
BR 2$ 
1$: CMP (R46) +, (RG) + 
TST (R4)+ :R4=JMP ADDRESS 
JMP -(R4) -USE R4 AS ADDRESS 
2s: INC R2 : CHECK INDICATOR 
BNE JMP4 
CMP (RO) +, (RO)+ 
CMP RO,R4S : CHECK AUTO=DEC R4 
2 BEQ +4 
JMP6: HLT 
Oe ees 010703 MOV PC ,R3 
02 000401 BR +4 :RESERVE WORD FOR JMP ADDRESS 
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: 
S: 
™N 


a 
nS 
o= Po etohts EN Sou 


S 
S 


000016 


177770 


000035 
001252 
001604 
023254 


001604 


000020 
000012 


1$: 


3$: 
4$: 


1$: 
2$: 
7$: 
3$: 
JMP7 : 


—E 9 
12-MAR-80 11:30 PAGE 47-83 


CHECK JUMP INSTRUCTIONS 


. WORD 

TST + 
MOV R3,(R3) 
ADD #16, (R3)+ 
MOV R3,RO 
&R 3$ 

COM Pe 

BR 4$ 

JMP a-(R3) 
INC 2 

BNE JMP5 
TST -(RO) 
CMP RO,R3 
BEQ +4 
HLT 

BR 2$ 

COM R2 

BR 3$ 

JMP 1$ 

INC R2 

BEQ +4 
HLT 

MOV #1$.7$ 
ADD avFACTOR,7$ 
BR 2$ 

COM R2 

BR 3$ 

JMP a7$ 
-WORD 0 

INC he 
=? ~*4 


; CONTAINS JUMP ADDRESS 


;LOAD CHECK REGISTER 


UMP TO 2$ VIA _1$ ABOVE 
‘CHECK INDICATOR 


;CHECK AUTO=DEC R3 


; COMPLEMENT INDICATOR 


;SET UP JMP ADDRESS 
sADD RELOCATION FACTOR 
O JMP_a7$_ INST 


; CONTA 
:CHECK INDICATOR 


<3 RAEARAEAAAAARAAKARAAARERTAAERKEARAAEAKEAARARAAREEAAAEAAREKREKARERAARAEEE 


ss RAECAAAAAAKEEAARAAAAETAEEAERAAKAAAAERAAAAEARARAEAEAEAEKEAKEEERERERKEEREE 


: LOAD TEST NUMBER 
sDISPLAY TEST NUMBER 

‘- RELOCATION FACTOR 

DEST ADRS 

“ADD ee eree ee FACTOR 

:PRESET CC'S 


GO TO 3$ VIA R2 
: CHECK INDICATOR 


SHOUL D= 
CHECK THAT RTS R5 RESTORED R5 
: GO TO 3 TEST 
;RETURN FROM SUBROUTINE 
“CHECK THAT JSR DID NOT 


“TEST 35 CHECK JSR INSTRUCTIONS 
TST35: SCOPE 
#35, a"STSTNM 
MOV av$TSTNM,a#DISPLAY 
JSR1: MOV asFACTOR.RS 
MOV #3$,.R2 
ADD JR 
SCC 
CLV 
JSR RS, (R2) 
1$: TST R2 
BNE 4$ 
CMP OFF ACTOR RS 
JSR3 
23: RTS R5 
3$: BCC 4$ 
BvS 4$ 
BNE 4$ 


sAFFECT CC'S 


SEQ 0108 
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135 


104000 


o-oo 
weaeee 
3 Oo 
—— 
MNO—-NwsS 


g 
BR 


38 
Re 


023236 


001604 
023350 


023346 


023334 


001604 


023412 


CHECK JSR INSTRUCTIONS 
4$ 


CHECK K THAT OLD RS WAS PLACED 


;GET RELOCATION FACTOR 
;SET INDICATOR 


;SET UP JSR DEFERRED ADRS 


R2 

MOV #1$,R4 

ADD (SPS RG 

CMP RZ RS 

BEQ 2$ 
4$: HLT 
; CHECK JSR INSTRUCTION ADDRESS MODE 3 
JSR3: MOV QFFACTOR,R4S 

CLR RO 

MOV #1$,R5 

ADD R6,R5 

MOV 


R5.R2 
MOV #5$, (RS) 
ADD RG. (RS) 


1$: . 0 
2$: JSR R4,a(R5)+ 
3$: INC RO 
BNE 6$ 
BR JSR4 
4$: COM RO 
RTS 4 
5$: MOV #3$.R3 
ADD (SP) ,R3 
CMP R4.RS 
BNE 6$ 
TST (R2)+ 
CMP R2,R5 
BEQ 4$ 
6$: HLT 


>CHECK JSR INST ADDRESS MODE 4 
JSR4: MOV 


@s#FACTOR,RS 
MOV oR5 
MOV PC,R3 
BR cf 
1$: BR 4$ 
2s: CMP (R3)+,(R3)+¢ 
SCC 
JSR R4,-(R3) 
3$: HLT 
BR JSR6 
4$: BCC 5$ 
BYC 5$ 
BNE 5$ 
BPL S$ 
MOV #3$,R2 
ADD (SP) .R2 
CMP R2,R4 
BNE 5$ 
TST (R4)+ 
RTS R4 
5$: HLT 


;(R5)=DEST ADRS 
*RE 


;JSR TO 5$ VIA _1$ ABOVE 
;CHECK INDICATOR 


:COMPLEMENT INDICATOR 
RETURN FROM SUBROUTINE 

;GET UNRELOCATED RETURN ADDRESS 
;ADD RELOCATION FACTOR (OLD R4) 


:CHECK AUTO-INC R5 
:GO TO RTS 


:G0 TO 2$ 
:GO TO NEXT TEST 


;GET UNRELOCATED RETURN ADDRESS 
:ADD RELOCATION FACTOR (OLD R4) 
:CHECK THAT CALCULATED RETURN 
:PC = NEW R4 


SEQ 0109 


G 9 
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CEQKCE .P11 12-MAR~-80 11: 135 CHECK JSR INSTRUCTIONS SEQ 0110 





9104 :TEST JSR INST ADDRESS MODE 6 
9105 0 01 JSR6: BR 2$ 
9106 1$ 3$ 
91 of ga 23: MOV PC,RO 
9108 767 177770 JSR PC,1$ 
91 100407 BM | JSR7 :GO TO NEXT TEST 
9110 HLT “ERROR ON CC'S 
9111 20 3$: CMP (RO)+, (RO) + 
9112 020016 CMP RO, (SP) :CHECK THAT RETURN ADDRESS IS ON THE 
911 1401 BEQ +4 ° STACK 
9114 0 104000 HLT 
9115 74 000270 SEN :SET N 
9116 76 rinse RTS PC 
9118 -TEST JSR INST ADDRESS MODE 7 
9119 023500 013746 001604 JSR7: MOV a#F ACTOR, -(SP) GET RELOCATION FACTOR 
91 504 062716 023524 ADD #1$, (SP) FORM ADDRESS OF 1$ BELOW 
9121 510 77 SCC :SET ALL CC'S 
91 Q 512 004076 000000 J RO,a(SP) “JSR TO 1$ 
91 516 003003 BGT 3$ 
9126 333 102002 BVC 3$ 
91 5 023522 000402 BR 4$ 
9127 524 000200 1$: RTS RO + RETURN 
31 : 0 3 104000 i: HLT ERROR!! INCORRECT CC'S 
(4) LRERK REAR RAERERAEEERERAEREREAEAAERAAAAREREARAERARERERERRERERRE ES 
(3) **TEST 36 CHECK IOT TRAP (AND ROLB/ASLB) 
(4) ce THIS TEST CHECKS THAT THE PSW IS CORRECT AFTER THE IOT AND THAT THE 
(4) :* "NEW'PSW (FROM IOTVEC+2) IS CORRECT. 
(3) RRR RRRERERAREERERREEREEETEERAERE ARE RRARR REAR AR EKER R ARERR EERE 
(2) 
(2) 000004 TST36: SCOPE 
(2) Me737 000036 001252 MOVB «#36, a#STSTNM :LOAD TEST NUMBER 
(2) 4 737. 001252 ~«4177570 MOV avSTSTNM,a#D1SPLAY DISPLAY TEST NUMBER 
91 M2 000022 IOTTST: MOV #IOTVEC+2,R5 
9135 69 CLR RO 
91 2740 000200 BIS #PR4 ,-(RO) :SET PRIORITY LEVEL 4 IN PSW 
91 011015 MOV (RO), (RS) :SET IOTVEC+2 = : 
91 011504 MOV (R5) RG VE IN RG 
91 010746 MOV PC,-(SP 
9140 716 000036 ADD wi$-., (SP) 
9141 12645 MOV (SP) +,=(RS) :LOAD IOT TRAP VECTOR 
914g 10 000357 BIC #PR7+17, (RO) 
914 710 000244 BIS #PRS+4, (RO) PSWEX no x00 107 1x1 000 
9144 1 MOV (RO) +,R3 -R3 = PSw ABO 
gi49 010340 mov R3,-(RO) RESTORE PSw (MOV CHANGED IT) 
914 state 054456 000020 10S: MOV #SSCOPE ,a# IOTVEC :RESTORE I0T VECTOR 
9148 104000 HLT ; ERROR 10T FAILED TO TRAP 
9149 000457 BR TS137 ::GO TO NEXT TEST 
313) 012002 1$: MOV (RO) +,R2 ;GET _PSwW AFTER I0T TRAP 
3138 02 012725 054456 MOV #$SCOPE ,(R5)+ “RESTORE LOTVEC 
9154 012715 000200 MOV #PRZ, (RS) “AND IOTVEC +2 
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CEQKC-£ PDP 11/70 CPU EXERC | ER MACY11 30A(1052) 12-MAR-80 11:30 | 
CEQKCE “MAR-80 11: 136 CHECK JOT TRAP (AND ROLB/ASLB) SEQ 0111 : 
9155 010746 MOV PC_-(SP) :FORM PC OF 10$ ABOVE ) 
3136 716 177752 ADD #i0$-., (SP) 
915 CMP (SP)+,(SP)+ : CHECK RETURN PC ON STACK 
9138 1 BNE 393 
91 CMP (SP)+,R3 : CHECK SAVED PSW 
9160 99$ 
3161 ; t 140000 BIT aMRS :BRANCH TO 3$ IF IN USER MODE 
o188 100 BNE 2$ :BRANCH TO 2$ IF IN SUPER MODE 
9164 CMP R2,R4 “CHECK PSwW AFTER IOT 
9165 26 BNE 
9166 00041 BR 4$ 
91 704 030000 2$: BIC #PUM RS :CLEAR PREV MODE BITS 
91 052704 010000 BIS #PSM,R4 -SET PREV SUPER MODE 
91 CMP R2,R4 “CHECK PSW AFTER IOT 
9171 1017 BNE 99$ 
9172 023706 04 BR 4$ 
9174 0 3710 052704 030000 33: BIS #PUM RG :SET PREV USER MODE 
9175 714 020204 CMP R2,R4 “CHECK PSW AFTER IOT 
9178 3716 001012 BNE 99$ 
9178 0237. 005002 4$: CLR R2 
9179 023722 261 SEC 
91 724 106100 ROLB = RO :ROTATE RO 
1 1 0 102376 BVC .-2 “UNTIL V SETS (RO=200) 
218s 0 106300 ASLB- ~~ RO :SHIFT SHOULD SET CARRY 
91 732 103004 BCC 99$ 
9185 102003 BVC 99$ 
91 001002 99$ 
91 740 005700 1ST RO 
9188 023742 001401 BEQ +6 
9189 023744 104000 99$ HLT ERROR! ROL/ASL FAILED TO SET 
9190 =CC'°S RLY (IF R2=0) OR 
9191 =CORRECT PSwW TER IOT (CIF PR? NOT 0) 
9198 0 3746 042704 000340 BIC #PR7 RG 
9193 023752 010437 177776 MOV R46, aaPSW :RESTORE PSW 
9194 023756 012706 000700 #SUPSTK,SP “RESTORE STACK PTR 
9195 J LARA AAAAAAEAEAEAEAAERERERERERAEAKRERAEKAAEARAERERAARARAEERARAERARORERERER 
(3) =*TEST 37 CHECK EMT TRAP SEQUENCE 
(3) FERRARA RAE R ARERR AEERERERREEREREAEEEEARARERAEREERAREREERE REED 
(2) 
(2) 023762 1ST37: SCOPE 
(2) 023764 112737 000037 001252 MOVB  #$#37,a4STSTNM :LOAD T 
(2) 023772 013737 001252 177570 av$TSTNM, a#DISPLAY > :DISPLAY TEST NUMBER 
91 .EQUIV IOT,HLT =REDEF INE HLT CALL 
919 4000 012737 054710 000020 MOV #SERROR , a# IOTVEC SETUP OR 
9198 006 O12 7 000340 000022 MOV #PR7 , a#IOTVEC+2 
91 4014 00 900 CLR 0 
9200 02401 10746 MOV PC,-(SP) 
9201 026 716 000030 ADD #EMTI-., (SP) 
9 012637 000030 MOV (SP) +, a#EMTVEC 
9 0240 SEV :SET V 
9204 024032 013 177776 000032 MOV aePSwW, AWEMTVEC +2 “RETAIN CURRENT PSw ON TRAP 
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CEQKCE .P11 
4040 +SEZ!SEC 
EMT ; TRAP TO EMT! 
EMT1C :GO TO EMTIC 
HLT : ' INCORRECT CC'S WERE SET ON RETURN 
EMT1: BVC EMT1B z‘v‘ D°VE SET ON EMT TRAP 
10 coMB~—séRO -R0=000377,CC'S=1001 
17 ADCB~—s_ RO :RO= “CC 'S=0101 
; RORB RO :R0=000200, CC 'S=1010 
1 BVC EMT1B 
14 BPL EMT1B 
iF NeGe RO RO=000200,CC'S=1010 
1S Sea Be Bre 
19 72 BPL EMT1B 
7%, CLV :CLEAR ‘V' 
1 76 SEC -AND SET 'C' 
2 4) DECB ~=—s« RO =RO=000177,CC'S=0011 
41 BYC EMT1B 
4 1 BM] EMT1B 
41 CLV :CLEAR 'V" 
411 INCB RO :RO=000200,CC'S=1011 
411 BCC EMT1B 
6114 BVC EMT1B 
411 BPL EMT1B 
41 CLV :CLEAR 'Vv° 
1 41 RO :SHIFT RO UNTIL °V" CLEARS 
9 32 6124 BVS .-2 
92 41 BR +4 
9 41 EMT1B: HLT ERROR! 
5 0261 RTI “EXIT WITH RO=090377 
41 EMT1C: ADCB RO -RO=000000 
92 41 BCC EMT1D 
9 140 BNE EMT1D 
9 4142 TST RO 
9240 024144 BEQ +4 
9241 4146 EMT1D: HLT 
924 4150 054710 000030 MOV #SERROR , A#EMT VEC -RESTORE EMT TO ERROR 
9243 024156 340 000032 MOV #PR7 , AMEMTVEC +2 “SET PRIORITY 7 ON ERROR 
0 4164 054456 000020 MOV #SSCOPE ,a#IOTVEC sRESTORE IOT VECTOR 
9245 024172 000022 CLR aeIOTVEC+2 
9246 -EQUIV ERROR,HLT :REDEFINE HLT CALL 
y 47 5 LRA RERERERERRERERERAEREEERAAEAERAKARAEAEREREARERERARARRERRRED 
(3) =*TEST 40 CHECK TRAP INSTRUCTION TRAP SEQUENCE 
(3) FARRAR RARE RAE ARERR ERERERAA AREER ERAERERRERERAAARAAREEARRERRERE 
(2) 
3 024176 TST40: SCOPE 
(2) 024 112737 000040 001252 MOVB #40, aaSTSTNM :LOAD TEST NUMBER 
(2) 026 013737 001252 177570 MOV @ASTSTNM, a#DISPLAY >:DISPLAY TEST NUMBER 
9248 024214 737 000340 177776 BIS #PR7 , aAPS =LOCK OUT LINE CLOCK 
9249 024 052737 000340 000016 BIS #PR7 , A#TBITVEC+2 
9250 024 010746 MOV PC, =(SP) 
9251 024 062716 000056 ADD #TRAPI-., (SP) 
9252 024236 012637 000034 MOV (SP) +, a#TRAPVEC 
9253 024242 000270 SEN :SET N 
9254 024244 013737 177776 000036 MOV aAPSW, AF TRAPVEC +2 sRETAIN CURRENT PSW ON TRAP 


—<-— 


+. 
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CEQKCE .P11 12=MAR-80 SEQ 0113 
55 1 SEC :SET CARRY 
810700 ae 
SEZ :SET Z BIT 
: ie 12 : TRAP TO TRAP1 
a 
012737 062270 000034 MOV #STRAP , @#TRAPVEC s;RESTORE TRAP VECTOR 
104000 HLT 
spss BEQ .+12 
012737 062270 000034 MOV WSTRAP , A#TRAPVEC :RESTORE TRAP VECTOR 
104000 HLT 
BR TRAP1C 
1 TRAP1: BMI +12 ;N BIT GOT SET ON TRAP 
01 7 062270 000034 MOV ASTRAP, @*TRAPVEC sRESTORE TRAP VECTOR 
104000 HLT 
000004 ADD RO 
16 CMP “5 (SP) + CHECK LOW BYTE OF RETURN PC ON 
1404 BEQ +42 K 
Oe Aho 062270 000034 toe #STRAP, @#TRAPVEC ;RESTORE TRAP VECTOR 
126646 CMPB ss = (SP) , = (SP) 
0 BIT (SP) +, (SP)+ 
000002 RT] sRETURN TO INST FOLLOWING TRAP (1$) 
9278 012702 000036 TRAP1C: MOV #TRAPVEC+2,R2 :RESTORE VECTORS 
79 012712 000340 MOV #PR7, (R2) 
9 01 Phe 062270 MOV #STRAP, -(R2) 
9281 042737 000340 000016 BIC #PR7 ,AATBITVEC+2 
328 105037 177776 CLRB 40 a#PSW :GO BACK TO PRIORITY 0 
9284 000004 RELE3: SCOPE 
(1) 010702 V PC.R2 
(1) 062702 000012 12,R2 
(1) 0 4406 012707 044042 #RELOC .PC :GO RELOCATE PROGRAM CODE 
(1) 024412 000000 E33: won, 0 
1) Re 53353355 33 LAST ADDRESS OF CODE TO BE RELOCATED 33333333333 
9285 LARAAAAEREAARARAKEERERERERAERERARERAARERARERRERERERERERERARERERRERE 
(3) :STEST 41 CHECK STACK OVERFLOW 
(3) SRAAEAARERERAEARARAERAEAREEERARREREEERAEKRAERAEREREERERERERRERRRRE 
(2) 
(2) 024414 012767 000001 154754 MOV #1. STIMES ::DO 1 ITERATION 
(2) 024422 __.  TST41: SCOPE 
(2) 024424 112737 000041 001252 MOVB #41. aa$TSTNM :LOAD TEST NUMBER 
mt) 024432 013737 001252 177570 MOV @4$TSTNM, a#DISPLAY * DISPLAY TEST NUMBER 
(1) .SBTTL START OF SECTION 4 
(1) bbabbabbaaass FIRST ADDRESS TO BE RELOCATED 444444444 
(1) 024440 010700 REL4: MOV PC,RO Pp 
(1) 024442 005740 TST -(RO) *RO CONTAINS THE ADDRESS OF REL4 
(1) 024444 010037 001610 MOV RO. avFRSTAD = SAVE 
(1) 024450 010700 MOV PC,RO :GET CURRENT 
(1) 024452 162700 024452 SUB > SUBTRACT RELOCATION FACTOR 
(1) 024456 010037 001604 MOV RO. avF ACTOR “SAVE RELOCATION FACTOR 
(1) 0 010737 001262 MOV C aW$LPERR *SET LOOP ADDRESS 
(1) 026466 06737 000030 001262 ADD #30. @FSLPERR < ADJUST 
(1) 024474 013737 001262 001260 MOV a¥$i PERR ,a#$LPADR 
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020000 
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30A(1052) er 
START OF SECTION 
TSTB @ANE XE C 
BEQ +6 
JMP RELE4 
OVFLW: MOV arPSW , 7S 
CLR a#PSW 


JSR PC ,a#CLRIBIT 
BIS #PR7 , aAPSW 


MOV #340, QFERRVEC+2 
MOV avBPTVEC, 

438: .WORD 0 
ADD #41$-2$, (SP) 
MOV (SP) +, aWBPTVEC 


MOV #340, a#BPTVEC+2 


MOV #376 ,R3 
MOV R3, (R3) 
MOV R3,SP 
BIT #UM,7$ 
BNE 1$ 


K 9 
11:30 PAGE 47-89 


;BR IF TEST CODE TO BE EXECUTED 


SAVE STATUS IN 7$ BELOW 
;SET KERNE 


;GO CLEAR ‘T’ BIT IF _SET 

:SET gt LEVEL 7 TO BLOCK CLOCK 
SH CURRENT PC ONTO STACK 

FORM ADDRESS OF 2$ 

7SET ERROR VECTOR 

7SET PRIORITY LEVEL 7 ON TRAP 

;SAVE BPT VECTOR ADRS 


;FORM ADDRESS OF 41$ BELOW 
:SET BPT TRAP VECTOR TO ais 


;LOAD 376 INTO Ngo 376 


:SET STACK PTR BOUNDARY 
: CHECK IF ENTERED TEST IN KERNEL 


BRANCH IF NOT IN KERNEL 


:THE BELOW INSTRUCTIONS SHOULD NOT CAUSE AN OVERFLOW TRAP 
TST (SP) ;BE CAUSE 


CMP (SP) ,~2(SP) 
MOV (SP)+,a=(SP) 


TST IS A NON MODIFYING INST 
:SO IS COMPARE 


;BECAUSE OF ADDRESS MODE 5 


BIS a(SP).a(SP)+  :BECAUSE OF ADDRESS MODE 3 
BIS = SP) -a(SP) “BECAUSE OF ADDRESS MODE 7 
MOV @4#20000, 20000(SP) 
BR 3$ *BRANCH OVER NON KERNEL MODE TESTS 
‘NOTE: NO OVEFLOW TRAP WILL OCCUR IF NOT IN KERNEL MODE! ! ! 
i$: BISB -- 7$+1 ,a#PSW+1 STORE MODE BITS IN PSW 
MOV #376, SP “SET STACK PTR 
MOV -2(SP),-(SP) | :SHOULD NOT TRAP 
BIS (SP), (SP) 
ADD (SP) ,-2(SP) 
CLRB 43s @#PSWi+ ;SET KERNEL MODE 
MOV #SUPSTK, SP “RESTORE THE STACK 
BR 6$ “EXIT TEST 
“ERROR SERVICE ROUTINE 
2$: MOV + -RO ;SAVE PC OF INSTRUCTION THAT TRAPPED 
MOV (SP) eR PSW 


MOV ste. SP 
HLT 


“STACK PTR IS A 
3$: ADD #4$-28, a#ERRVE ( 
MOV R3,5S 


SET STACK PTR 
SERROR! AN agg ie Ee THAT WAS NOT 


:SUPPOESED TO TRAP T 
=RO CONTAINS PC, R2 CONTAINS PSW 


BR 6$ EXIT TEST 
; THE BELOW INSTRUCTIONS WILL cause A STACK OVERFLOW 


;SET ERROR VECTOR TO 4$ 
:SET STACK PTR AT 376 


SEQ 0114 


ee 
CEQKC=-E PDP 11/70 CPU EXERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-90 





E 
CEQKCE.P11 12-MAR=80 11:27 START OF SECTION 4 SEQ 0115 
4740 11 000001 MOVB «#1, R2 
6744 CLR RO 
7 1 CLR (SP) :SETS BIT 0 IN RO 
67 ASL R2 “SHIFT INDICATOR BIT 
1 INCB = (SP) + “SETS BIT 1 IN RO 
4 2 ASL R2 
4 746 ADD PC ,-(SP) :SETS BIT 2 IN RO 
7 30¢ ASL R2 
67 BPT :SETS BIT 3 IN RO 
6764 906 ; ASL R2 
4766 767 000014 JSR PC,40$ :SETS BIT 4 IN RO 
4 302 ASL R 
026774 177776 BIS SP, -2(SP) :SETS BIT 5 IN RO 
025000 BR 5$ 
:PROGRAM WILL TRAP HERE ON OVERFLOW TRAP 
4$: BIS R2,RO = SET APPROPRIATE | BIT IN RO 
RTI “RETURN FROM T 
40$: BIS #1000,RO :SET IND THAT JSR WAS EXECUTED 
RTS PC 
41$: BIS #400,RO :SET IND THAT BPT WAS EXECUTED 
“CHECK THAT ABOVE INSRUCT IONS DID TRAP 
S$: MOV #SUPSTK,SP :SET STACK PTR 
CMP #1477,RO “EACH INSTRUCTION SET A BIT IN RO 
BEQ +4 *RO= 1477 
HLT 
:EXIT ROUTINE 
6$: MOV #KERSTK,SP :SET KERNEL STACK PTR 
000014 MOV 43$,a4BPTVEC § ;:RESTORE BPT VECTOR 
CLR @4BPTVEC+2 
MOV (PC)+,=(SP) :PUSH OLD PSwW ONTO STACK 
7$: .WORD 0 * CONTAINS SAVED PSw 
MOV PC,-(SP) “PUSH CURRENT PC ONTO STACK 
ADD #6, (SP) “ADD OFFSET 
RTI 
ms MOV #SUPSTK,SP sSET STACK PTR 
9 5074 01 064422 000004 MOV WERPRT ,AWERRVEC :RESET TIME OUT VECTOR 
9 102 01 730 177776 000006 MOV ars @#ERRVEC+2 
9 110 052737 000340 000006 BIS #PR7 ,QMERRVEC +2 
9385 025116 042737 000020 000006 BIC WB1T4 ,a#ERRVEC+2 
9 025124 005037 177766 @YCPUERR 
1% saddle eats tea aca ehnevnhaia aimatbueitinaeeranie. 
(3) STEST 42 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP 
oh «RRR AREER ERR EEE EERE RARER ERR RR eee 
(2) 
(2) 025130 TST42: SCOPE 
(2) 025132 Me737 000042 001252 MOVB #42. aN$TS -LOAD TEST NUMBER 
(2) 025140 013737 001252 177570 MOV aster OADISPLAY - DISPLAY TEST NUMBER 
9 025146 005737 001552 RESTRP: TST a4KB11E :IS THIS A KB11-E OR KB11-EM? 
9389 025152 001403 BEQ 10$ BR IF NOT 


RX 
oA 


ZOLIRAIASERAEEOIEOTORTESEESSESSEGGETGHIGGS 


KUNASBSVERRAVLS 


RRR 


WES 


RESET See 


% 
POSES P OSS 


: 





m 9 
POP 11/70 0, CPU EXERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-91 
12 : 142 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP SEQ 0116 
54 1 767 10 000122 MOV #10.5$ :KB11-E AND KB11-EM USES OPCODE 7, START WITH OPCODE 10 
£73 10$: MOV #5$.R2 =GET ADDRESS OF RESERVED INSTRUCTION TABLE 
TSB arc isP :1S CISP 0 OPTION PRESENT 
74 239 MOV #6S, Re “ADDRESS OF RESERVED INSTRUCTION TABLE WITH CIS 
1604 8$: ADD avFACTOR 
1 000040 001551 BITB #40, SORT boos ;CHECK IF 11/45 FLOATING POINT IS AVAIL. 
12 001406 BEQ 9$ H IF NOT AVAILABLE 
005067 000212 CLR 51$ “SET CIS TABLE TERMINATOR AT GROUP 7 
7 000110 CLR 50$ *SET TABLE TERMINATOR AT GROUP 7 
5224 012737 025262 000010 9S: MOV #4$.QMRESVEC :SET RESERVED INSTRUCTION TRAP 
7 001604 000010 ADD a¥F ACTOR, a#RESVEC 
12203 1$: MOV (R2)+,R3 :GET FIRST RESERVED INSTRUCTION 
1476 BEQ 7$ *0 TERMINATES THE T 
012204 MOV (R2)+,R4 “GET LAST RESERVED INSTRUCTION IN GROUP 
010317 2$: MOV R3, (PC) “EXECUTE RESERVED INSTRUCTION 
3$: .WORD 0 “CONTAINS RESERVED INSTRUCTION 
2 40 NOP ; ERROR! INSTRUCT ION IN R3 
000240 NOP = (2$) ABOVE FAILED TO CAUSE A 
104 HLT “RESERVED INSTRUCTION TRAP 
000405 BR 41$ 
012716 025274 4$: MOV #41$, (SP) :ADJUST RETURN PC 
716 001604 ADD @#FACTOR, (SP) TO RETURN TO 41$ 
RTI RETURN TO 41$ 
74 0 41$: CMP R3.Ré *HAS GROUP OF RESERVED INSTRUCTIONS 
76 001760 BEQ 1$ “BEEN EXECUTED 
005203 INC R3 : INCREMENT THIS RESERVED INSTRUCTION 
2 000761 BR 2$ TO NEXT ONE AND EXECUT 
-TABLE OF 1170 RESERVED INSTRUCTIONS 0, TERMINATES THE TABLE) 
5 7 S$: a ;GROUP 1 (GETS A 10 IF KB11-E OR KB11-EM) 
$310 000210 210 GROUP 2 
5312 900227 227 ; 
5314 00 7 :GROUP 3 
531 007777 7777 Nien 
; 075040 75 ; GROUP 4 
2 076777 76777 a ees 
5324 106400 ;GROUP 5 
5 106477 106477 : 
5 106700 106700 :GROUP 6 
5 107777 107777 > a. 
5 170000 50S: 170000 =GROUP 7 FLOATING POINT 
5336 «(177777 177777 ite INSTRUCTIONS 
5340 000000 0 *0 TERMINATES THE TABLE 


: TABLE OF KB11-E/EM WITH CIS RESERVED INSTRUCTIONS (0 TERMINATES THE TABLE) 
000010 6$: 10 :GROUP 1 


REAPISELE 
"g 
5 


N 9 
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CEQKCE.P11 12 11:27 142 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP SEQ 0117 












9446 76037 76037 ~ 
9447 92 a 876026 76046 *GROUP 4¢ 
ont ae 76067 76047 " 
% 761 76100 $ GROUP 4D 
9451 761 76127 
% 4 76133 76133 $ GROUP GE 
% 76137 76137 
3% 76146 76146 $ GROUP GF 
9455 76167 76147 
9496 76160 76160 : GROUP 4G 
3% 761 76167 
3% 07 76200 : GROUP 4H 
945 07 76600 
9460 07 76602 $ GROUP 4] 
9461 reons 76777 
ouabe 106400 106400 $ GROUP 5 
1064 106477 
9464 106700 106700 $ GROUP 4 
9465 109977 107777 
1 51$: 170000 5 GROUP 7 FLOATING POINT 
aes 159999 177777 INSTRUCTIONS 
9468 000000 0 “0 TERMINATES THE TABLE 
9470 012737 064350 000010 7$: MOV ARESERR , @#RESVEC :RESTORE RESERVED TRAP 
9471 z s RERAEKAKAKEKAAAAKRAEAKRAEAREKCAEKAAAEKARAKRAKAAKAEAAAAKARARKERAEAARAEKEER 
(3) **TEST 43 CHECK THAT ALL BITS IN THE PSW CAN BE SET AND CLEARED 
(3) FL RARER RERERERERREEEREREREEAREKKERERREKKEERRREEREEREERERRERERE 
(2) 
(2) 5446 TST43: SCOPE 
(2) 025450 epee! 000043 001252 MOVB #43, a4STSTNM :LOAD TEST 
(2) 025456 013737 001252 177570 MOV av$TSTNM, a#DISPLAY * DISPLAY TEST NUMBER 
94 5464 105737 601 PSWCHK: TSTB § @#MMON : IF MEM MGMT IS ON SKIP THIS TEST 
% 3470 001070 BNE 4$ 
9474 025472 013767 177776 000140 MOV arPsw, 3$ :SAVE STATUS 
9475 025500 7 177776 CLR aaPsW :CLEAR MODE BITS IN PSW 
9676 15504 004737 063314 JSR PC ,a#CLRIBIT “GO CLEAR 'T' BIT IF SET 
3% 5510 013746 000016 MOV a#TBITVEC+2,-(SP) 
3478 3314 206286 177776 mov APSWR4 :LOAD ADDRESS OF PSW INTO R4 
55 14 TST (R4) = CHECK THAT PSW WAS CLEARED 
1 025524 001401 BEQ +4 
125526 (1 HLT :ERROR! PSwW FAILED TO CLEAR 
2 O12 170357 #1 70357 .RO 
00 001552 TST afkB11 71S THIS A KB11-E OR KB11-EM PROCESSOR? 
5 240 1402 BEQ 10$ T 
542 05 000400 BIS #400,RO ALSO. TEST PS08 IF KB11-€ 
546 012702 000001 10$: MOV #1,R2 “Ro = TEST 
552 1$: BIT R2.RO *CHECK IF BIT cam BE SET/CLEARED 
54 001423 BEQ 2$ 
% 5 5037 000016 CLR MATBITVEC+2 
3491 3 0227 000020 B17 Re #20 :CHECK IF TEST WILL SET 'T* BIT 
949 5 O12737 000002 000016 MOV ARTI ,AWTBITVEC+2;SET RTI INTO RETURN 
9494 025576 014 20S: CLR (R4) 
9495 025600 050214 BIS R2, (R4) “SET R2 INTO PSW 
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1V/ MERCISER MACY11 ss : AGE 47-93 
{DoMARSBO 11 oF CHECK THAT ALL BITS IN THE PSW CAN BE SET AND CLEARED 


177776 


8 
12-MAR-80 11:30 P 
SEQ 0118 


MOV (R4)_R3 :GET BIT 
cP Re ,RS *CHECK THAT BIT WAS SET IN PSW 
- 
HLT sERROR! BIT IN R2 FAILED TO SET IN PSW 
CLZ “CLEAR Z BIT 
BIC R2 (Ra) =CLEAR BIT IN PSW 
MOV (RA) AR :GET PSW RE T 
BEQ “BRANCH IF BIC ABOVE CLEARED BIT IN PSw 
HLT “ERROR! BIT IN {Re FAILED TO CLEAR IN PSW 
2$: ASL R2 i SHIFT TEST BIT 
- BCC 1$ H IF ALL BITS NOT TESTED 
CLR te R4) CLEAR STATUS 
MOV (SP)+, avrarrvecsé< *RESTORE T BIT RETURN 
MOV (PC) +.=(SP) ORIGINAL STATUS ON STACK 
3$: .WORD 0 : CONTAINS ORIGINAL PSW 
MOV PC,-(SP) “SET RETURN PC 
ADD #6, (SP) 
RT] RETURN 
4$: MOV arPsw,R4 “SAVE PSW IN, R4 
MOVB #340, aePSW “SET PRIORITY LEVEL 7 
JSR PC.a*CLRIBIT :GO CLEAR 'T' BIT IF SET 
ESE EERIE IIE IE EE IUIEIIISIIIISOIIOISISII ISIS ISO OR titit 
“STEST 44 CHECK THAT ALL BITS IN THE CURRENT STACK PTR CAN BE SET CLEARED 
: SRAARAAAAAKERARARAEREEREEEEEEAAEAKEREREAERAAEKEREREEAERERAERREERAERARRREE 
TST44: SCOPE 
MOVB #44, aeSTSTNM :LOAD TEST NUMBER 
MOV TSTNM, @#DISPLA *:DISPLAY TEST NUMBER 
CHKSP : mov R3 :SAVE STACK PTR 
MOVB -#377.SP :SET STACK PTR = -1 
1$: ROR SP “ROTATE 0 BIT THROUGH ALL BIT 
BCS 1$ “BIT POSITI 
INC - =SHOULD INCREMENT SP TO 0 
MOV SP.R2 :SAVE ERROR STACK PTR 
MOV R3,SP *SET STACK PTR FOR TRAP 
HLT “ERROR! 
2$: MOV R3,SP :RESTORE ORIGINAL STACK PTR 
:CHECK BYTE OPERATIONS USING THE STACK 
SPCHK: MOV SP .RO :SAVE STACK PTR 
MOV RO,R3 
CLR -(R3) 
MOVB #-1,~-(SP) :(SP) = 377 
cme #377, (RS) “CHECK THAT ONLY EVEN BYTE WAS AFFECTED 
CMP R3,SP :CHECK AUTO=-DEC 
BEQ +4 
1$: HLT 
INCB =: (SP) + 
TST (R3)+ : CHECK RESULT 
BNE 2$ 
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2$: 


3$: 


4$: 


5$: 


C 10 
12-MAR-80 11:30 PAGE 47-95 
CHECK THAT ALL BITS IN THE CURRENT STACK PTR CAN BE SET CLEARED 


; CHECK AUTO-INC 


-(R3) : (R3)=177777 
~(SP), (R3) 

#177400, (R3) :CHECK RESULT 
SP.R3 

+4 


(SP) + ,#377 
4$ 

SP ,RO 

+4 


#1,-(SP) 
a 
#177401 
R2,-(SP) 
5$ 
(SP)+,R2 
5$ 
RO,SP 
+4 


R2 


avPSw 

R4,-(SP) 
PC .~(SP) 
#6. (SP) 


;RESTORE ORIGINAL PSW TO STACK 


a2 RAEAAAAAAAAARAEREKERAREREREEAAEKAKEAAKEAEKKAEEEEEAEREEKEEEREEEEEAREE 


=*TEST 45 


22 RECAAAAAEAARAEAAARAKAERAAAAAERAEREEEEAKEEAEAEAKEREAEAREEEEEAEERETEER 


TST45: 


CBIT: 
1$: 


2$: 


SCOPE 
MOVB 


MOV 
MOV 
. WORD 
MOV 
SUB 
ADC 
ASL 
BVC 
MP 
BEQ 
HLT 


;CHECK THAT CONDITION CODES ARE 
: THAT NUMBER +17 ARE COMP 


MPNUM: MOV 
MOV 


CHECK THAT ‘"C* BIT SETS/CLEARS PROPERLY 


#45, aNSTSTNM :LOAD TEST NUMBER 
TSTNM, a4DISPLAY -:DISPLAY TEST NUMBER 

“i 6,(PC)+  ;:LOAD CONSTANT 

PC,RO :GET CURRENT PC 

#4-RO “POINT RO TO 1$ ABOVE 

(RO) + “ADD 'C' BIT TO 1$ ABOVE 

-(RO) “SHIFT 1$ 

2$ “UNTIL *V" BIT SETS 

#077776, 18 =CHECK RESULT 

go 


ERROR! INCORRECT RESULT IN 1$ ABOVE 
;RO=ADDRESS OF DATA 


SET PROPERLY WHEN A NUMBER (CURRENT PC) 
ARED, AND VICE VERSA. 
T CURRENT PC 


PC,RO 3GE 
RO,R2 :SAVE IN R2 


SEQ 0119 








CEQKC-E PDP 11/70 CPU SRE agER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-95 
CEQKCE .P11 1 Vs 145 CHECK THAT 'C' BIT SETS/CLEARS PROPERLY 


R2 MAKE R2 = RO+1 


; CLEAR C &@N BITS 
;COMPARE # WITH #+1 
Y SHOULD SET 


SEQ 0120 


. 


Seep TERERSESD 


RRR peceseee 
Sar RNSFRR 
— 2 od a 
RSS 
8ce 
—J 
zQRee 
~+— OWS 
~ D 
+ARMAO 
. > 
«* ee 
ow 
te 
a= 
2: 
oO 
a 
m 
cr 


1$: “E ARE # WITH #+1 FAILED TO 
“SET CONDITION CODES IN PSW CORRECTLY 
77 SCC :SET CONDITION CODES IN PSW 
1 C R2,RO “COMPARE #+1 WITH 
103403 BCS 2$ =C BIT SHOULD CL 
9610 102402 BVS 2$ *V BIT SHOULD CLEAR 
9611 001401 BEQ 2$ -Z2 BIT SHOULD CLEAR 
9618 100001 BPL +4 "N BIT SHOLD CLEAR 
961 104000 2$: HLT “ERROR! COMPARE #+1 WITH # FAILED TO SET 
9614 “CONDITION CODES IN PSW CORRECTL 
9615 2 105037 177776 CLRB av#PSW ‘ENSURE PRIORITY 0 
9616 000004 RELE4: SCOPE 
(1) 0 010702 MOV PC,R2 
(1) 0 702 000012 ADD #12,R2 
(1) 012707 044042 MOV #RELOC ,PC :GO RELOCATE PROGRAM CODE 
(1) 026242 REL44: .WORD 
1 +466466444644444 LAST ADDRESS OF CODE TO BE RELOCATED 44444444444 
9617 5 RRR RARRARAEERERERE AREER EERE RREREREEREREREEREREERERRERE ERE 
(3) **TEST 46 CHECK EXTENDED INSTRUCTION SET 
(3) 2 LE RARRRRAEAARER ERR RE AREER RAREEREREAREREREERAEREAAREERARERR RE 
(2) 
(2) 026244 012767 000001 153124 MOV #1. STIMES ::DO0 1 ITERATION 
(2) 52 TST46: SCOPE 
(2) 026254 Me? 7 000046 001252 MOVB #46, a"STST LOAD TEST NUMBER 
mt?) 0 013737 001252 177570 MOV avSTSTNM, ayDISPLAY : DISPLAY TEST NUMBER 
(1) $81 I START OF SECTION 5 
(1) -5555555555555 FIRST ADDRESS TO BE RELOCATED 555555555 
(1) 010700 RELS: MOV PC,RO T PC 
(1) 005740 TST -(RO) CONTAINS THE ADDRESS OF RELS 
(1) 0037 001610 MOV RO. a#FRSTAD 
(1) 700 MOV PC,RO “GET CURRENT PC 
(1) 700 026302 SUB . RO *SUBTRACT RELOCATION FACTOR 
(1) 7 001604 MOV RO. a#FACTOR “SAVE RELOCATION FACTOR 
(1) 7 001262 MOV PC .@aSLPERR *SET LOOP ADDRESS 
(1) 737 30 001262 ADD #30, QMSLPERR =: ADJUST 
(1) 737 001262 001260 MOV @¥SLPERR ,avSLP 
(1) 737 001600 TSTB  a#NEXEC :BR IF TEST CODE TO BE EXECUTED 
(1) 1402 BEQ +6 
(1) 167 001510 JMP RELES 
9619 000 EXTINST:CLR 
er" SCC :PRESET CC'S 
1 SXT 0 “EXTEND SIGN (1) INTO RO 
é 103005 BCC SXTO “CHECK RESULT CC'S 
102404 BVS SXTO 
9624 001403 BEQ SXTO 














SEQ 0121 
START OF SECTION 
CfonterPi? | 42 # 
oe ° “CHECK RESULT 
INC 
BEG +6 
SxTO: HLT 
PC.RO 
MOV R2 
177777 Moy #1 RS 
COM : 
eee SEO ONOLD CONTAIN COMPLEMENT OF RO 
36 = SCHECK THAT C WAS NOT AFFECTED 
— waa “AND THAT V WAS CLEARED 
XORO 
$6 One R2 RS CHECK RESULT 
BEQ “* ; ; FAILED 
ses KORO: HLT :ERROR! — XOR 
Sen —~ = COE RO GISTER 
S i eae a ee 
eee - =CONTAINS TEST DATA 
den6 ; : sEXTEND SIGN OF ADDRESS INTO 
i: «Ske “ADDRESS (RO)=-1 IF MSB RO=1 
$48 Fa a “OTHERWISE, (RO)= 
264 TORO “CHECK SIGN OF ADDRESS 
3051 as 53° :COMPLEMENT CHECK REG IF NEG 
$652 hon Fi =CHECK RESULT OF SXT 
3634 (MPs (RO) ,R2 a 
3054 at — -ERROR! SXT FAILED TO EXTEND SIGN PROPE 
SxT7: HL 
3086 PRESET DATA 
Vv _—« #100000, (RO) 
3028 $4 012710 100000 mov 190000 pace . 
3685 Oc =< :XOR 100000 WITH 100000 RESULT = 0 
2660 ace OKGRT ZCHECK CC'S AFTER XOR 
sss ax ee 
XOR1 WAS NOT AFFECTED 
ee Te ORD “CHECK THAT REG 
966 BVS iws4 
$059 XOR1: HLT 
MoV _—- PC. R2 
7 Sg (Re) + ,(R2)¢ PRESERVE WORD FOR DATA 
3058 = _ “RESERVED FOR DAT 
5% 14: Pt 9125252, (R2)+ PRESET DAT 
1 — — I ae SEXTEND SIGN 
$677 a? ae 
se at . SE OTRACT 2F PC 
TST = = (RO) BC=1 ABOVE 
3679 ton RO ¢ROSRESULT OF XOR 
9680 
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CEQKCE P11 START OF SECTION 5 SEQ 0122 
9681 Obs548 24042 xOR RO,~(R2) CHECK RESULT OF SXT AND XOR ABOVE 
a? 
$ 901401 KOR24: HLT sERROR! SXT & XOR ABOVE INCORRECT 
5 026 MOV #1,R4 =SET RG 
Ye 350 SxT XOR6A =PRESET DATA=0 
‘ 23: KOR R4,XORGA 
BM! XOR6 
y. ASL R4 :SHIFT R4 
y BVC 2$ SUNTIL V SETS (R4=100000) 
9691 BPL XOR6 H IF 'N* IS CLEAR 
2eRe XOR R4,XOR6A “ XOR6A=177777 
BPL KOR6 
96% XOR PC, XOR6A :KOR PC WITH XOR6A (177777) 
9695 MOV PC, XOR68 :FORM PC AS USED IN XOR ABOVE 
9698 000022 SUB #4, XOR6B 
969 COM XOR68 
8 000006 ow KOREB , KOR6A :XOR6A SHOULD = COMPLEMENT OF PC 
.+ 
970K 1 KOR6: HLT :ERROR! XOR TESTS ABOVE FAILED 
oN 026632 BR +6 
9704 02663 000000 KOR6A: .WORD 0 CONTAINS DATA USED BY TEST ABOVE 
3706 000000 XOR6B: .WORD 0 
9708 012700 077777 MOV #077777,R0 :SET SOURCE OPERAND FOR ADD 
9709 767 177764 SXT XOR6A ;CLEAR XORGA 
9710 BNE SXT6 =CHECK CC'S AFTER EXTENDING ZERO’S 
9711 1 3 BM! SXT6 
971 1 BCS SXT6 
971 102401 BVS SXT6 
9714 rod BR +4 
Lak 1 SXT6: HLT sERROR! SXT FAILED 
971 0 
0 


oi0e 000001 MOV #1,R2 :SET DEST OPERAND 


— 





FOR 
971 001604 MOV avFACTOR,R3 “LOAD INDEX REGISTER 

971 74 ADD “RESULT OF ADD=100000 

9 ? 63 026634 SXT XOR6A (3) “EXTEND SIGN OF ADD ABOVE 

9721 1405 BEQ SXT6A 

9 4 26 177724 INC XORG6A :CHECK RESULT OF SXT 

9 7 1401 BEQ +4 

2 4 712 104000 SXT6A: HLT : ERROR ' §XT ABOVE FAILED TO EXTEND 
9 714 010703 MOV PC,R3 

9 71 02 BR + :PRESERVE 2 WORDS FOR DATA 

9 SXRA: . WORD 0 “RESERVED WORD FOR DATA 

9 SXRB: .WORD 0 “RESERVED WORD FOR DATA 

9 23 TST (R3)+ 

9731 10304 MOV R3,R4 -R3 = ADDRESS OF SXRA 

9 50 CLN “CLEAR N BIT 

9 2 SXT (R4)+ SEXTEND ZEROS INTO SXRA 

9 1401 BEQ +4 

736 104000 SxT2:  #HLT sERROR! SXT FAILED 


so 


CEQKC 


“-E POP 11 


CEQKCE .P11 





af 
0270 


0271 
027110 


010467 
7 


074473 
020473 
001401 
104000 


3 
1401 
000 


177754 


025252 


177712 


000010 


/70 CPU ah XERCISER MACY11 30A(1052) 
12=MAR-80 11:27 START OF 


SxT3: 


SXT5: 


XOR35: 


SXT?7: 


XOR7: 


fT ERAAARAAAEREARARARAAEEEEAEREAERAARAEAARARAERAEARAERAAEAAAAEERERARARER 


ANY -— IN FOLLOWING SOB TESTS 
MAXI WIDTH OF THE INSTRUCTION. 


*® 


$0810: 


SOB9: 


SOB0: 


Se 

SECTION 5 
MOV R4,SKRA 
CCC 
SxT a(R3)+ 
BEQ .*4 
HLT 
SEN 
SXT a- (R35) 
BM! +4 
HLT 
MOV #925252 ,R4 
XOR R4,a(R3)+ 
CLR R2 
XOR R2,a-(R3) 
BEQ XOR35 
BPL XOR35 
COM R4 
CMP R4,SXRB 
BEQ +4 
HLT 
TST -(R3) 
CLN 
SXT a2(R3) 
BEQ +4 
HLT 
XOR R4,a2(R3) 
CMP R4, a2 (R3) 
BEQ r +4 
HLT 

SOB TEST 
DO NOT INSERT 


:eTEST 47 
NOTE 


SINCE IT TESTS THE 


e 
fF RARER ARAKARAREREEEAREARAAARAEAAARAEKAEERAERAERRERRAARAARERAERERES 


TST47: 


#47 ,@ASTSTNM 


G 10 
11:30 PAGE 47-98 


7 SXRA = noe aS OF SXRB 


;SXRB = 


ERROR! 


:CLEAR CONDITION CODES 

ZEXTEND ZEROS INTO SXRB 
; ERROR! 

;SET N BIT 

sEXTEND ONES INTO SXRB 

ERROR! 

sR4 = 


9933825 (COMPLEMENT OF R4) 


;SXRB REMAINS UNCHANGED 
;CHECK CONDITION CODES 


4 = 152525 
CK XOR 


XOR FAILED 


R3 = erin OF SXRA~2 


“CL LEAR N 
Sx 


: ERROR! 


SXT FAILED 


7SXRB = RG 
:CHECK XOR 


; ERROR! 


@4STSTNM,@#DISPLAY 


;CLEAR ERROR INDICATOR 
;BRANCH TO SOB TEST 


;R4 = 0 
; CHECK ERROR INDICATOR 
; $08 BRANCHE 


MUM BRANCH 


KOR FAILED 


;LOAD TEST NUMBER 
::DISPLAY TEST NUMBER 


D CORRECTLY 


CLEAR INDICATOR (R5) 


:ROTATE 


RIGHT R4 


:RO=10 
sSET CONDITION CODES 


SEQ 0123 


ap menpmyp nny stpmyeims 


et 


14 
7216 


e 
7356 
027240 


Oe see 
067059 
967956 


027262 





1401 


—+ td 
S3on5 
===233 8 


S28 


077404 
104000 


012703 
077301 


005703 
001703 
104000 


000001 


100000 


$081: 


SOBe: 


SOB4: 
SOBS5: 


SOBSA: 


;CHECK CONDITION CODES 
SHOULD NO 


“CONDITION CODES. 


4 


EFFECT 


AFTER SOB 


THE 


5 EO tte hate CODES AFTER 


; CONDITION C 


:CHECK IF RO=0 
; ERROR! 


;R2=100 
;SET CHECK REGISTER, RO=101 
: CHE CK CONDITION CODES AFTER 


CH, 
; $08 rita “NOT EFFECT 
:CONDITION CODES. 
:DECREMENT CHECK REGISTER 
:CHECK THAT SOB DECREMENTS 


+ SET op ME rt fey SOB 


>S0B SHOULD NOT BRANCH 
:CHECK IF RO=0 AFTER SOB 


O SOB3 UNTI 


R2=0 


CHECK” CONDITION CODES AFTER 
3808 FALLS THROUGH 
> CHECK IF R2=0 
: ERROR! 
;RO=1 

; ERROR! 


s ERROR! 
:R4=100000 


7R4=1 


00000 
:N BIT SHOULD BE SET 


SOB DID NOT 


ERROR! 
; INCREMENT PROPERLY 


;S0B SHOULD 
ERROR! 


BRANCH 
SOB DID NOT BRANCH 


;R3=100 
[USE SOB TO BRANCH TO ITSELF 
CHECK IF R35=0 


; ERROR! 
:CHECK INDICATOR (R5) 


SEQ 0124 


= 
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CEQKCE .P11 12-MAR~80 11:2 147 SOB TEST SEQ 0125 
9845 7 1F SOB BRANCHES INCORRECTLY 
; WHEN MAX 


CHECKING ‘ H, 
;R5 WILL NOT BE CLEARED AT 
;THIS POINT INDICATING AN ERROR. 


50 764 001401 BEQ +4 :BRANCH IF SOB BRANCHES CORRECTLY 
2) 7 104000 HLT = ERROR! 
w858 7 29 905205 INC R5 :SET INDICATOR (R5) 
7272 077677 SOB R4,SOB9 :TEST MAX. BRANCH OF SOB 
55 74 005704 TST R4 =CHECK IF R4=0 
027276 001401 BEQ .+4 
57 027 104000 T : ERROR! 
58 SF ARAAAAAAERARARAAAARAAEAAEAAEAAAAARAARARRAARARAARARRARRAARAARHANES 
(3) :*TEST 50 CHECK THE MARK INSTRUCTION 
(3) 5 EERE AAA EAARERAEERAE REE ERAERAEERARA ARERR EERE REERRRREEEREHE EE 
(2) 
(2) 027 900004 TSTSO: SCOPE 
(2) Mig 7 000050 001252 MOVB #50, a4STSTNM LOAD TEST NUMBER 
(2) 12 013737 001252 177570 MOV @¥$TSTNM,@4D1SPLAY ::DISPLAY TEST NUMBER 
9859 910602 MRKTST: MOV spe 
9860 0 01070 MOV PC,R : THE STACK LOOKS LIKE THIS AFTER 
9861 010500 MOV RO : THE JSR INSTRUCTION 
weoe 010546 MOV R5,-(SP) : =-2(SP)= THIS ISA 
65 o10%6 MOV PC,-(SP) + =-4(SP)= PC STRING 
10746 MOV PC,-(SP) : -6(SP)= PC+2 OF 
5 010746 MOV PC,-(SP) :=10(SP)= PC+4 FIVE 
0 010746 MOV PC,-(SP) 2-12(SP)= PC+6 DUMMY 
9867 027340 010746 MOV PC,-(SP) :-14(SP)= PC+10 ARGUMENTS 
9868 2 O167e6 006405 MOV WMARK+5,-(SP)  ;-16(SP)= 5 
9 10605 MOV SP.R5 :-20(SP)= PC PUSHED BY JSR 
98 50 004767 000002 JSR PC .MARK1 
9871 54 000403 BR +10 
98 0 000205 MARK1: RTS 5 
98 0 104 HLT ERROR! SHOULD BE DOING MARK 5 INST. 
9874 ott MARKE X 
9875 0 2 CMP SP,R2 
9876 0 001402 BEQ .+ 
98 104000 HLT ERROR! SP NOT RETURNED TO PROPER 
98 72 000403 BR EX :VALUE BY MARK INSTRUCTION 
98 7374 020005 CMP RO,R 
9880 027376 001401 BEO +4 
9881 027400 1 HLT - sERROR! DID NOT RESTORE RS FROM STACK 
9882 7402 010206 MARKEX: MOV R2,SP sRESTORE SP 
9906 5 LARA ARE AERERREEAERERERRERERRREAEEERAEARREEARERERAERRAARAERRARRAEEE 
(3) :*TEST 51 RTT/RTI TEST 
(4) :* RTT/RTI TEST INSURES THAT CP DOES THE INSTRUCTION FOLLOWING 
(4) :* AN RTT IF THE 'T'BIT IS SET IN THE PSW,BUT DOES HONOR 
(4) :* THE TRAP IMMEDIATELY IF IT EXECUTES AN RTI 
(4) 3% INSTRUCTION SEQUENCE-RTT 
(4) ;* 2$: RTT sNO ‘T’ TRAP AFTER RTT 
(4) ;* INC RO ;RO= 
(4) + :*T* TRAP TO 5$ AFTER INC 
(4) s* 5$: COM RO :RO=177776 
(4) ;* MOV SAVPSW, 2 (SP) *CLEAR ‘T’ BIT IN RETURN PSW 
(4) :* RT] :RETURN TO INSTRUCTION FOLLOWING INC 


CEQKC=E PDP 11/70 CPU EXERCISER MACY11 ss ; ha 





J 10 cite 
12<MAR-B80 11:30 PAGE 47-101 


CEQKCE.P11 12=MAR-80 11:2 RTT/RT] TEST SEQ 0126 
(4) ; CMP #RTT,2$ > Che CK 
(a) " wa 
(4) 8 INSTRUCTION SQUENCE-RTI 
(4) :* 2$: RTI :"T" TRAP AFTER RTI 
(4) te 5$: COM RO “RO=177777 
(4) t8 MOV SAVPSW,2(SP) _:CLEAR 'T' BIT IN RETURN PSW 
(4) ie RTI “RETURN TO INC INSTRUCTION 
(4) :* INC RO =R0=000000 
(4) te CMP #RIT,2$ * CHECK 
(4) tie ETC 
(3) SL ARAAAARAAAAAAEARAREAAAATERARRAAAREREKAAARAAERERARRAAARAERRARERAREH 
(2) 
(2) TST51: SCOPE 
(2) 112737 001252 MOVB #51. a#STSTNM :LOAD TEST NUMBER 
(2) 013737 001 52 177570 MOV @YSTSTNM, aADISPLAY = :DISPLAY TEST NUMBER 
9907 013767 177776 000214 RTT1: MOV ayPSw, SAVPSW : p 
9908 032767 000020 000 BIT #20, SAVPSW “CHECK IF ‘T'BIT SET 
00140 BEQ 1$ = CONTINUE IF NOT 
9910 167 000402 JMP RTT2EX : TO EXIT 
9911 10746 1$ MOV PC,-(SP) “GET CURRENT PC 
wie 716 000116 ADD #5$-., (SP) =FORM RELOCATED PC 
991 012637 000014 MOV (SP) +. @#TBITVEC “LOAD INTO TRAP VEC 
9914 016 46 000162 MOV SAVPSW, - (SP) “GET CURRENT PSW 
9915 01 163 000016 MOV (SP) ,a#TBITVEC+2 
16 05 137 000340 177776 BIS #PR7 .aa#PSW :SET PRIORITY LEVEL 7 
9918 2716 000360 BIS #PR7+20, (SP) -SET ‘T'BIT IN PSW ON STACK 
9919 010746 =; MOV PC,-(SP) -PUT THE PC ON THE STACK 
2 062716 000006 - ADD #6, (SP) “ADJUST PC FOR NEXT INSTRUCTION 
ee 005200 INC RO :DONE TO SEE IF INSTR. FOLLOWING 
99 “RTT IS EXECUTED IF T-BIT SET 
042737 000340 177776 BIC #PR7, aAPSW *SET PRIORITY LEVEL 0 
9925 022767 000006 177760 CMP #RTIT.2$ 
99 001005 BNE :CHECK IF INC WAS EXECUTED 
9 022700 177776 CMP #177776 ,RO “CHECK IF COM-RO EXECUTED 
9 1406 BEQ 4$ 
99 104000 HLT sERROR'RO NOT COMPLIMENTED 
99 000415 BR 6$ “EXIT TEST 
9931 005700 3$: 7ST RO -TEST IF TRAPED BEFORE INC INST. 
99 “WAS EXECUTED 
9 001413 BEQ 6$ 
99 104000 HLT : ERROR! 
9935 000411 BR 6$ “EXIT TEST 
9 012767 000002 177726 4%: MOV #RT1,2$ 
99 000730 BR 1$ 
9938 005100 5$: COM RO ;RTT CHECK 
9939 016766 000052 000002 mov SAVPSW,2(SP) 
9941 Or re? 000006 177704 68: MOV WRIT 2% 
Be 12737 001570 000014 MOV #SRTRN, a#TBITVEC ;RESTORE ‘T* TRAP VECTOR 
994 005037 000016 CLR a#TBITVEC+2 
9944 042737 000360 000016 BIC #PR7+BIT4 ,a#TBITVEC +2 
may RTTIEX: 


SUR AAAREERARER ERE REEREREEER AREER KARA RRAERAAEAAAAA ARE RERA ARES 
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CEQKCE .P11 12-MAR= SECOND RTT TEST SEQ 0127 
(3) saTEST 52 SECOND RTT TEST 
( ) FF AAAAAAAAARARAARARARARAAAAAAAAAARARAARAKAAAARAAARARARAAAAAAREEEREE 
(2) 
(2) TST52: SCOPE 
(2) 112737 S52 001252 MOVB #52. aa$TS :LOAD TEST NUMBER 
(2) 013737 001252 177570 MOV assis, BaD ISPLAY *:DISPLAY TEST NUMBER 
IG 000401 BR TT2A 
SH SAVPSW: .WORD 6 
9948 016 177772 RTT2A: MOV SAVPSW,RO :GET SAVED PSW 
394 1 CLRB = RO “CLEAR PRIOITY LEVEL.T,. AND COND CODES 
9950 012 144000 MOV #UM+REG ,R2 
9931 074 XOR RO,R2 
¢ 0014 BEQ 2$ sUSER MODE REG. SET #1 ON 
995 012702 044000 MOV #SM+REG,R2 
9954 974002 XOR RO,R2 
9955 09144 BEQ 3$ : SUPER MODE REG. SET #1 ON 
9956 032700 140000 BIT #UM.RO 
9997 001062 BNE RTT2EX 
9959 :TEST THAT RTT CLEARS BITS 11.12.13 & PRIORITY LEVEL BITS IN KERNEL MODE 
9960 012702 177777 MOV L MODE REG. SET 0 ON 
9961 012737 034240 177776 MOV APUMSREG*PRS, ayPSw ‘SELECT REG. SET #1 
9962 00 CLR R12 =SHOULD CLEAR REG #12 
996 012746 000100 MOV #PR2,-(SP) 
9964 010746 MOV PC,-(SP) 
9965 716 000006 ADD #i$-., (SP) :FORM NEW PC 
Soe? 01 177776 1$: MOV avPsw,RO :NOW USING REG SET 0 
9968 005702 TST R2 “SHOULD TEST R2 NOT R12 
9969 001001 BNE 4$ 
9970 1 HLT :ERROR!DID NOT CLEAR BIT #11 OF PSW 
9971 022 000100 4$: CMP #PR2 RO :TESTS THE PSW AFTER THE RTT 
9978 001436 BEQ RITOEX 
99 104000 HLT :ERROR! INCORRECT PSwW AFTER THE RTT 
93% BR RTT2EX 
997 -TEST TO INSURE THAT RTI DOES NOT CLEAR BITS 11-15 IN USER MODE 
9 052737 030340 177776 2$: BIS #PUM*+PR7 ,AAPSW  :PSW<15-5>=144X 
9978 005046 CLR -(SP) 
9979 010746 MOV PC,=(SP) 
9980 716 000006 ADD #5$-., (SP) 
1 : RT] :ATTEMPS TO INSERT A PSwW OF 0 
022737 174340 177776 S$: CMP #UM+PUM+REG+PR7.aQ4PSW  :SHOULD CHECK AGAINST REG #0 
001420 BEQ RTT2EX 
104000 HLT :ERROR! RTI CLEARED BITS IN PSW 
S 000416 BR RIT2EX 
S089 -TEST THAT BITS 11-15 AND PRIORTY BITS ARE NOT ALTERED IN SUPER MODE 
9988 052737 030200 177776 3$: BIS #PUM+PRG ,aMPSW :PSW<15-5>=044X 
012746 000340 MOV #PR7 ,~(SP) 
9990 010746 MOV PC (SP) 
9991 062716 000006 ADD #6$-., 
9992 000006 RTT sATTEMPTS TO CLEAR 11-15 AND ALTER PR 
999% 022737 074200 177776 6%: CMP #SM*PUM+REG#PRG., @APSW 
9995 001401 BEQ RTT2EX 
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CEQKC-€ PDP 11/70 CPU XERCIGER MACY11 30A(1052) 
CEQKCE.P11 12 1: T52 SECOND RTT TEST SEQ 0128 
030044 104000 HLT sERROR! RTT ALTERED PR IN 
999 *SUPER MODE OR BITS 11-15. 
016737 177572 177776 RIT2EX: MOV SAVPSW, a#PSW 
RELES: SCOPE 
(1) 1 MOV PC R2 
(1) 9 70 900012 ADD #12,R2 
(1) 012707 04404 #RELOC .PC :GO RELOCATE PROGRAM CODE 
(1) 0 000000 RELSS 
. :5 5555555 ae 55 LAST ADDRESS OF CODE TO BE RELOCATED 55555555555 
7 f LARA AAAEEREREEREEERERERAEKERKEREEEERAERRERAERERERERERRRERRER HE 
(3) **TEST 53 CHECK ASH, ASHC, MUL, AND DIV INSTRUCTIONS 
( ) FERRARA EEAEEREREREEERAAKEEARAARERKRRAERAAARRRRARRRARRRERRERE 
(2) 
(2) 030072 012767 000001 151276 MOV #1.STIMES ::DO 1 ITERATION 
(2) 030100 TSTS53: SCOPE 
(2) 0 108 Me 7 000053 001252 MOVB #53,a4$TSTNM :LOAD TEST NUMBER 
( , 110 013737 001252 177570 MOV avS$TSTNM, @#DISPLAY > :DISPLAY TEST NUMBER 
(1) _SBTTL START OF SECTION 6 
(1) {0666666666666 FIRST ADDRESS TO BE RELOCATED 666666666 
(1) REL6: PC RO 
(1) Tey ) *RO CONTAINS THE ADDRESS OF REL6 
(1) 001610 MOV RO aPFRSTAD ; 
(1) MOV PC,RO :GET CURRENT PC 
(1) 030130 SUB - *SUBTRACT RELOCATION FACTOR 
(1) 001604 MOV RO. a#FACTOR *SAVE RELOCATION FACTOR 
(1) 001262 MOV PC. RR =SET LOOP ADDRESS 
(1) 30 001262 ADD #30, “ADJUST 
(1) 001262 001260 MOV a¥$LPERR, a¥SLP 
(1) 1600 TSTB  @WNEXEC :BR IF TEST CODE TO BE EXECUTED 
(1) BEQ +6 
(1) 002120 JMP RELE6 
1 000001 ASHLO: MOV #1,RO :RO WILL BE THE SHIFT COUNT 
1 000021 MOV #17. ,R3 “MAX SHIFT COUNT 
1 000014 1$: CLR 2$ “PRESET SAVED CC'S LOCATION=0 
1 MOV RO,R =GET SHIFT COUNT FOR PASS 
1 MOV PC.R *R5 & R4 WILL BE DATA SHIFTED BY 
1 MOV R5,R4 *ASH & ASL INSTRUCTIONS 
1 ASH R2.R5 “SHIFT RS 
1 177776 MOVB a#PSW,(PC)+ :SAVE CC'S 
10010 2$: .WORD 0 “CONTAINS ASH CC'S IN EVEN BYTE 
10011 “ASL CC'S IN ODD BYTE 
1 1 4 3$: ASL R4 ; 
1001 113746 177776 ayPSW,-(SP) : PSwW ON STACK 
1 Vert 000002 B16 #2, (SP) “CHECK IF ASL SET V BIT 
1 16 40 %° 767 009002 177755 BISB #2,2$+1 :IF ASL SET V THEN Sct V IN 2$+1 
1001 112637 177776 30$: MOVB  (SP)+,a#PSw “RESTORE ORIGINAL PSW 
1 18 32 077214 S08 R2 ;SHIFT RG R2 TIMES 
1001 153767 177776 177741 BISB a@#PSW,2$+1 CC'S AFTER ASL 
0504 CMP R9-R4 *CHECK ASH & ASL RESULTS 
1 ; 126767 177730 177727 C 2$,2$+1 :CHECK ASH & ASL CC'S 
* 
1 4 001401 BEQ 4 
10024 030276 104000 4$: HLT :ERROR! INCORRECT RESULT OR CC'S 
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177777 
177757 


177776 


177776 «177763 
000002 177755 


177744 


000037 
000001 


000002 


177740 
177777 


177743 


M10 
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START OF SECTION 


ASHRO: 
1$: 


2$: 


3$: 


4$: 


ASHCLO: 
1$: 


2$: 


3$: 


ASHCRO: 
1$: 


INC 
CMP 
BNE 


R2,R5 
—- 


R2 
R4 


* R2,3$ 
a4PSW ,2$+1 


#2 ,2$+1 
R5,R4 


4$ 
2$,2$+1 
+4 


RO 
RO.RS 
1$ 


#31.,-(SP) 
#1 ,~(SP) 
(SP) ,RO 


SP) 
ileal 
(SP) +, (SP)+ 


#-32.,-(SP) 
#-1,-(SP) 
(SP) RO 
PC .Re 


R5 


; INCREMENT PASS SHIFT COUNT 


:RO = RIGHT SHIFT COUNT FOR PASS 
; OUNT 


“GET SHIFT COUNT FOR PASS 
“R5 & R4 = DATA TO BE SHIFTED 
NSTRUCT IONS 


S 
SAVE CC'S IN EVEN BYTE 
;CONTAINS ASH CC'S IN EVEN BYTE 
sASR CC°S IN ODD BYTE 


SHIFT R4 

SHIFT R4 R2 TIMES 

;SAVE CC'S AFTER ASR 

:ASH RIGHT WILL NOT SET V ASR MAY SET V 
;CHECK ASH & ASR RESULTS 


;CHECK ASH & ASR CC'S 


;DECREMENT PASS SHIFT COUNT 


3;PUT MAX SHIFT COUNT ON STACK 
;PUT LEFT SHIFT COUNT ON STACK 

;GET PASS SHIFT COUNT 

;CURRENT PC IS DATA TO BE SHIFTED 

sASHC SHIFTS R4&,R5;ASL,ROL SHIFTS R2,R35 


SHIFT R4 LEFT AS SPECIFIED BY RO 
;SHIFT R2,R3 LEFT 
sAS SPECIFIED BY RO 


; CHECK RESULTS 


; INCREMENT NEXT PASS SHIFT COUNT 
REACHED MAX COUNT (31.) 


RESTORE STACK PTR 


:PUT MAX RIGHT SHIFT COUNT ON STACK 
“PUT PASS SHIFT COUNT ON STACK 
“GET PASS SHIFT COUNT 
*R2,R3 & R4,R5 ARE THE DATA REGISTERS 
‘TO BE SHIFTED BY TEST 


:SET V BIT IN PSW 


SEQ 0129 
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START OF SECTION 6 


SEQ 0130 


ASHC _RO.R2 i SHIFT R2,R3 RIGHT RO TIMES 
BVS 3$ “SHIFT RIGHT ARS 
NEG RO “NEGATE SHIFT CC OUNT OR SOB 
2$: ASR R4 “SHIFT R4,R5 RIGHT RO TIMES 
ROR R5 
SoB RO,2$ 
CMP R2,R4 :CHECK RESULT 
BNE 3$ 
CMP R3,R5 
BEQ +4 
3$: HLT 
DEC SP) :SET SHIFT COUNT FOR NEXT PASS 
CMP (SP) .2(SP) “CHECK IF MAX SHIFT COUNT 
C (SP) +, (SP) + sRESTORE STACK PTR 
SEE OUI IIIA IOIIOUIOIUISISIOII IOI IOI ITI 
“STEST 54 CHECK MUL 
:* THE BELOW TEST OF THE MUL INSTRUCTION MULTIPLIES THE CURRENT PC 
:* BY 1.2.4.8 ETC AND SHIFTS THE SAME PC VALUE USING AN ASHC LEFT BY 
ve 0,1,2,3.ETC AND COMPARES THE RESULTS. CONDITION CODE RESULTS ARE NOT CHECKED. 
SAA IIIT IIIS IOI ISITE 
TST54: SCOPE 
#54, QNSTSTNM ;LOAD TEST NUMBER 
MOV @4STSTNM, a#DI SPLAY =DISPLAY TEST NUMBER 
MULO: MOV #1, :RO CONTAINS MULTIPLIER FOR MUL 
MOV #SUPSTK,SP :SETUP THE STACK 
CLR (SP) > (SP) CONTAINS SHIFT VALUE FOR ASHC 
1$: MOV PC ,R2 RS, R2 & RS,_R4 ARE DATA REGISTERS 
MOV R2. (PC) + SAVE ma TiPic 
; 0 “CONTAINS ORIGINAL MULTIPICAND 
CLR R3 
CLR R4 
MOV R2,R5 :FOR MUL AND ASHC 
BPL +4 “IF MULTPICAND IS NEG THEN SET R4 = -1 
COM R4 =FOR ASHC 
SCC =PRESET CC'S 
MUL RO,R2 -MULTIPLY R2 BY RO LEAVE PRODUCT 
N R2,R3 MSH IN R2.LSH IN R3 
BVS 2$ 
BEQ 2$ :PRODUCT WILL NEVER BE = 0 
ASHC (SP) ,R4 > "MULTIPLY® Ren R5 BY (SP) LEAVE PRODUCT 
HIN R4.RS MSH I N R4,LSH IN R5 
cmp R2.Ré * CHECK RSH RESULT 
CMP R3,R5 =CHECK LSH RESULT 
BEQ +4 
2$: HLT 
INC (SP) : INCREMENT ASHC SHIFT COUNT 
ASL RO *SHIFT MUL MULTIPLIER 


B 
> CHECK MUL INST 
MOV 


INC 


MOV 
. WORD 


1$ 
WITH MULTIPIER (RO) 
PC,R2 ;R2 


R 
R2.(PC)+ 
0 


100000 
MUL TIPICAND 


SAVE MULTIPICAND 
‘CONTAINS ORIGINAL MULTIPICAND 


Re 
rh 


> 
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CHECK MUL SEQ 0131 
103 COM R3 
1 MOV R2.R4G :R4 WILL BE MSH "PRODUCT" 
ASR RG “FORM "PRODUCT ' 
COM RG > COMPLEMENT MSH "PRODUCT" 
MUL RO,R2 “MULTIPLY R2 BY 100000 LEAVING 
:Re = » = LSH PRODUCT 
cmp R2,R4 = COMPARE MSH PRODUCTS 
6 CMP RO.R3 : CHECK LSH PRODUCT 
1401 38 BEOQ +4 
{ERAAERAAEAERAEAEARARAEREREEREKEKARAEKRERAERRERAEREE RARER ERERRERRRRRERERE 
**TEST 55 CHECK THE DIV INSTRUCTION 
8 THE BELOW TEST OF THE DIV INSTRUCT ION DIVIDES THE CURRENT PC BY 
:* 1,2-4,8-ETC LEAVING THE QUOTIENT 7REMAINDER IN R2/R3. NEXT THE QUOTIENT 
:* 18 MULTPLIE C AND THE REMAINDER ADDED. me RESULT IS 
;* THEN COMPARED tne Oe ORIGINAL CURRENT PC. 
; I A AR a. ho 
TST55: SCOPE 
000055 001252 MOVB «#55, arSTSTNM :LOAD TEST NUMBER 
1252 177570 MOV arSTSTNM ,a#DISPLAY * -PISPLAY TEST NUMBER 
B80 0805 DIVO: MOV #1,RO :RO=DIVISOR 
MOV PC. (SP) “SAVE DATA ON STACK 
1$: MOV (SP) ,R3 *GET DATA 
CLR R2 *CLEAR MSH DIVIDEND 
DIV RO.R2 :DIVIDE R2 BY RO LEAVING QUOTIENT IN R2 
“AND REMAINDER IN R3 
aa 
BVC 20$ :BRANCH IF DIVIDE WORKED 
000001 CMP #1,R0 “V BIT SHOULD ONLY SET IF DIVIDING BY 1 
‘AND THE LSH OF DIVIDEND 
100000 eit #100000,(SP) 1S NEGATIVE 
BR 
20$: MOV R2,R4 :GET QUOTIENT 
MUL °R4 “MULTIPLY QUOTIENT BY DIVISOR 
ADD “RS “ADD REMAINDER TO LSH PRODUCT 
BCS 2$ : SHOULD 
CMP (SP) RS >CHECK RESULT 
BEQ +4 
2$: HLT :ERROR! DIVIDE FAILED 
“QUOTIENT IS IN R2, REMAINDER IN R3 
“ORIGINAL PC IS at STACK AND FINAL 
“PRODUCT IN R4.R5 CMSHJCLSH) 
006300 3s: ASL RO “GET NEXT DIVISOR 
102351 BVC 1$ 
:CHECK ASH.ASHC.MUL, AND DIV INSTRUCTIONS USING ADDRESS MODE 1 
1 ASHL1: CLR (SPS :(SP) = SHIFT COUNT 
CLR RO =RO = SHIFT COUNT FOR CHECK ASH 
1 000020 MOV #16. .R2 *R2 = MAX LEFT SHIFT COUNT 
06 000012 1$: CLR 2$ :¢ EAR CC'S HOLDING ADDRESS 
10703 MOV PC,R3 -R4 = DATA TO BE SHIFTED 
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CEQKCE.P11 12 11: 155 CHECK THE DIV INSTRUCTION SEQ 0132 
10185 031022 01 MOV R3.RG 
101 1026 07 I ASH (SP) .R3 ;SHIFT R3 LEFT (SP) TIMES 
101 1 1 177776 MOV oes. (PC)+ :SAVE CC'S 
1 2$: .WORD 0 ; CONTAINS ASH (SP) RS CC'S IN EVEN BYTE 
ASH RO,R4 CC'S IN ODD BYTE 
101 1 ¥% 07 400 ASH RO,R4 “SHIFT R4 LEFT RO TIMES 
191 031 113767 177776 177767 MOVB @APSW,2$+1 “SAVE CC'S IN on BYTE OF 2% 
101 1 304 CMP R3,R4 = COMPARE RESULTS 
1 1 3$ “BRANCH IF THEY DO NOT COMPARE 
1 126 67 177756 177755 CMPB  s«(Dh$ , 2$ +1 “CHECK CC'S AFTER ASH INSTRUCTIONS 
9 1 1401 BEQ +4 
1 104000 3$: HLT ; ERROR! EITHER RESULTS OF SHIFT OR 
“RESULT CC'S ARE INCORRECT 
1062 005 INC RO ; INCREMENT SHIFT COUNT FOR ASH RO.R 
1 005216 INC (SP) “ INCRENENT SHIFT COUNT FOR ASH (SP), “a3 
1 020 R2,RO *CHECK FOR MAX SHIFT COUNT 
1070 001351 BNE 1$ 
0 1072 005016 ASHR1: CLR (SP) : (SP) = SHIFT COUNT FOR ASH (SP),R4 
1074 005000 CLR RO , :RO = SHIFT COUNT FOR ASH RO, 
031076 005402 NEG R2 “R2 = MAX RIGHT SHIFT COUNT (SET BY 
: ABOVE TEST TO 16. NOW = ~16. 
031100 005067 000012 1$: CLR 2$ “CLEAR CC'S HOLDING ADDRESS 
0 1104 010704 MOV PC RG *R4,R5 = DATA TO BE SHIFTED RIGHT 
1106 010405 MOV R4_RS 
10 9 1110 07241 ASH (SP) RG ;SHIFT R4 RIGHT (SP) TIMES 
11 031112 013727 177776 MOV aAPSW, (PC) + =SAVE CC’ 
le 031116 2$: WORD 0 “CONTAINS ASH (SP).R4 CC°S IN EVEN BYTE 
1 “AND ASH RO,RS CC°S IN ODD BYTE 
14 031120 072500 ASH RO,RS5 *SHIFT R5 RIGHT RO TIME 
15 031122 113767 177776 177767 MOVB asPSwW.2$+1 “SAVE CC'S IN ODD BYTE 2$ 
16 0 11 05 CMP R4,R5 “CHECK RESULTS 
1 11 1004 BNE 
18 031134 126767 177756 177755 CMPB «R$, 2$ +1 :CHECK RESULT CC'S 
031142 001401 BEQ +4 
1 031144 3s: HLT :ERROR! EITHER RESULTS OR RESULT CC'S 
¢ “DID NOT COMPARE 
1146 005300 DEC RO *DECREMENT SHIFT COUNT 
1130 005316 DEC (SP) *DECREMENT SHIFT COUNT FOR ASH (SP) .R4 
115 020002 CMP RO,R2 “CHECK FOR MAX RIGHT SHIFT 
031154 001351 1$ 
REAR AKAAEEAAAEAARARAAKKEAREEKEAAAAAAEKAAARAEAAARARAKEAREAERAEEAREREEEE 
(3) :STEST 56 DIVIDE AGAIN 
(4) :* THE BELOW TEST CHECKS THE DIVIDE INSTRUCTION BY DIVIDING 
(4) 8 THE CURRENT PC BY ITSELF+1. THE QUOTIENT (IN Re) AL WAYS = 0, 
(4) 7 AND THE REMAINDER (IN R3) ALWAYS = THE CURRENT : 
(3) SRRAAEAARERERERAEEREREREEREEERERAEERRAEAEERERREERERERARERRERERERER REE 
(2) 
(2) 031156 TSTS6: SCOPE 
(2) 031160 112737 000056 001252 MOVB #56.aMSTS :LOAD TEST NUMBER 
(2) 0 1166 013737 001252 177570 MOV aySTSTNM, ANDISPLAY : DISPLAY TEST NUMBER 
10233 0 1174 010703 DIV1: MOV PC,R3 =CURRENT PC IS LSH DIVIDEND 
1 1176 702 SXT R2 =EXTEND SIGN TO Re (MSH DIVIDEND) 
10235 0 1200 010304 MOV R3,R4 - SAVE ORIGINAL DIVIDEND 
1 031 010316 MOV R3, (SP) “PUT ON S 


or 
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EQKCE .P11 somAReBD it coF 156 DIVIDE AGAIN SEQ 0133 
1 1 INC (SP) ZADD 1 Miu BE DIVISOR) 
1 1 BPL 1$ 3 : H IF POSITIVE 
1 1 000002 SUB #2, (SP) “MAKE DIVISOR 1 LESS THAN DIVIDEND 
1 12146 1$: DIV (SP) ,R2 “DIVIDE R2 BY (SP) 
1 121 BCS 2$ *CHECK CONDITION CODES 
1 1 BVS 2$ 
1 1 BNE 2$ 
1 1 BMI 2$ 
1 1 TST R2 *CHECK QUOTIENT (R2 = 0) 
1 1 BNE DIV1 
1 1 MOV R4, (SP) :GET ORIGINAL DIVISOR 
1 1 CMP R3, (SP) =CHECK REMAINDER 
1 1 BEQ +4 
1 031 2s: HLT :REPORT ERROR 
7 1 + RERRERERRERRERR ARERR ERR RARR ERE 
(3) : TEST 57 CHECK SPL INSTRUCTION 
( ) SARA EEARKEEAAAERAERAERAEAERAKERAEAREKAEAREEARAEAEAAEERARRARRERERER ER 
(2) 
(2) 9 1 TSTS57: SCOPE 
(2) 031 112737 000057 001252 MOVB #57. aa"STSTNM LOAD TEST NUMBER 
(2) 031 4 7 001252 177570 MOV a¥$TSTNM, a#D1SPLAY DISPLAY TEST NUMBER 
; 1 1 702 SPLTST: MOV (PC) +,R2 :R2 CONTAINS OP CODE FOR SPL 7 
} Tk 
1 042744 000340 BIC #PR7,-(R4) :CLEAR PRIORITY LEVEL BITS IN PSW 
1 011403 MOV (R4)_R3 :GET CURRE 
1274 042703 177757 BIC #177757,R3 *R3 CONTAINS CORRECT PSW AFTER SPL 
0 1 000230 000010 MOV #SPL+0,2$ s INITIALIZE SPL INSTRUCTIONS 
1 000237 000050 MOV #SPL+7.5$ 
1314 1$: ccc :CLEAR CONDITION CODES 
131 23: SPL 0 *SET PRIORITY LEVEL (NOTE: SPL=NOP IF USER/SUPER MODE) 
CHB (RG) RS *CHECK RESULT OF SPL ABOVE 
.* 
1 HLT :ERROR! SPL ABOVE FAILED 
1 140000 BIT #UM, (R4) -]F NOT IN KERNEL MODE THEN SPL 
1 BNE “ACTS AS A NOP 
1 000040 ADD #40,R3 = SET NEXT A CORRECT PSw RESULT 
1 177752 3$: INC =SET NEXT SPL INSTRUCTION 
9 1 177746 CMP 2$,R2 =CHECK IF DONE 
1 BLT 1$ “LOOP UNTIL DONE CHANGING SPL EACH PASS 
Mov (PC) +,R2 *R2 CONTAINS SPL INSTRUCTION BELOW 
1 000017 BIS #17,R3 *SET CONDITION CODE RESULT INTO R3 
1 4$: SCC SET CONDITION CODES 
1 5$: SPL 7 “SET PRIORITY LEVEL 
cHre (RG) RS *CHECK RESULT OF SPL ABOVE 
a ¥ 
1 HLT :ERROR! SPL ABOVE FAILED 
74 140000 BIT #UM, (R4) *CHECK IF IN KERNEL MODE 
9 1 0 SUB #40,R3 SET NEXT CORRECT PSw RESULT 
1 177752 6S: DEC 5$ “SET NEXT SPL 
0 141 026 177746 CMP 5$.R2 “CHECK IF DONE ALL SPL'S 
1416 361 BGE 4$ 
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;*TEST 60 
;* THIS 3a CHECKS THAT WHEN A RE 
CURRENT 
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11 
CHECK PIRQ LOGIC 


CHECK PIRQ LOGIC 


QUEST IS MADE AT A LEVEL = TO THE 










ce PROCESSER PRIORITY LEVEL THAT NO INTERRUPT TAKES PLACE, AND 
c* THAT WHEN A REQUEST IS MADE AT A LEVEL 1 GREATER THAN THE CURRENT PRO- 
* CESSER LEVEL THAT AN INTERRUPT OCtURS 
5 FL ERAAAAAAAAAAAAAAAAAEAAAAEAAAAAAARAAAAAAARARARAAAAARARAAARERRARAES 
TST60: SCOPE 
MOVB § #60,aaSTSTNM :LOAD TEST NUMBER 
MOV @4$TSTNM, a#DISPLAY = 
PIRQO: MOV #4$,R0 :RO POIN 
*CONTENTS AFTER AN 
MOV #400 ,R2 ane 
CLR R3 “R 
MOV APIRQ,R4 *R4 CONTAINS ADDRESS 
CLR RS) -INITIALZE REQUEST LEVEL 
MOV aePSW, a#PIRQVEC+2 :RETAIN MODE 
MOVB  #PR7, a#PIRQVEC+2 “ASSUME LEVEL 
#PR7 .a#TBITVEC+2 =PRIORITY LEVEL 7 ON TRAP 
1$: MOV #2$,, a#P IROVEC “SET PIRQ ERROR INTERRUPT VECTOR 
ADD OFFACTOR. a#P IROVEC “ADD RELOCATION FACTOR 
MO R3,aeP “SET CP PRIORITY LEVEL 
BIS R2, ona) “MAKE REQUEST AT LEVEL = TO CP LEVEL 
BMI 5$ “BRANCH WHEN DONE 
ADD #3$-2$ , a#PIRQVEC *SET PIRQ INTERRUPT VECTOR TO 3$ 
Is R2, (R4) :MAKE REQUEST AT LEVEL 1 HIGHER 
2$: HLT :ERROR! EITHER AN INTERRUPT OCCURED 
“WHEN ROQST LEVEL = CP LEVEL (PIROVEC)=2$ 
“OR INTERRUPT FAILED (PIRQVEC)=3$ 
3$: CMP (RO)+ (RA) *CHECK CONTENTS OF PIRQ REGISTER 
@APIRQ, avSTMPO :SAVE PIROQ 
CLR aePIRQ 
HLT :ERROR! INCORRECT PIRQ CONTENTS 
6S: AD #40,R3 “SET NEXT CP PRIORITY LEVEL 
BIC R2, (RS) “LOWER LEVEL BY 
MOV #1$, (SP) sADJUST RETURN ADDRESS 
ADD @vFACTOR, (SP) -TO RETURN TO 1$ 
30$: RTT 
: TABLE OF CORRECT PIRQ REGISTER CONTENTS ON INTERRUPT 
4$: 1042 -PIR1+PIAl 
3104 *PIR2+PIR1+PIA2 
7146 :PIR *PIRG+P R1+P] 
17210 ;PIRG*PIRS +PIR2+PIR1+PIA4 
37252 PIRS+PIRG+PIR *PIRG*PIRI PIAS 
77314 *PIRO+PIRS+PIRG+PIRS+P] PIA6 
177356 “PIR7+PIR6+PIRS+PIRG+PIR3+PIR2+PIR1 +PIA7Z 
5$: CLR (RS) :CLEAR PIRQ REGISTER 
MOV pPIRQVEC +2 @ePIROVEC “RESET PIROVEC TO HALT AT PIROVEC+2 
CLR aePIRQVEC +2 
CLRB = a#PSW 
BIC #PR7 , AATBITVEC+2 


SEQ 0134 
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CEQKCE .P17 2-MAR~B0 CHECK MICRO-BREAK REGISTER SEQ 0135 
10%2 FL UAAAAA AAA RERAAAAAAAAAAAEAARARERAARAAAARRARATRAREE NRA HAH RHEE ES 
(3) > *TEST 61 CHECK MIC AK REGISTER 
(4) :* THIS TEST SHIFTS A 'O' BIT THRU ALL BIT POSITIONS. 
( ) FF TAAAAAAAAAAAAARAAAAAAAAAAAAAARARAAARAAAARAAAAAAAARAAAAAEAAAAAA HS 
(2) 
(2) 0 1646 TST61: SCOPE 
(2) 0316 1 001252 MOVB #61. a#STSTNM :LOAD TEST R 
» 031656 09 1282 177570 MOV @4STSTNM, a#DISPLAY : DISPLAY TEST NUMBER 
10343 031 177 MBRK: MOV #UBREAK .R :SET ADDRESS OF MICRO BREAK REGISTER 
1 16 MOV (R2),=(SP) =SAVE ORIG CONTENTS 
10345 0316 177776 MOV #177776,RO *SET DATA PATTERN 
1 167 1$: MOV RO.R “GOING TO COMPARE DATA WITH R3 
1 1 001552 TST @*kB11€ 71S THIS A KB11-E OR KB11-EM PROCESSOR? 
1 1704 BNE 5$ “BR IF IT IS 
1 1 177400 BIC #177400,R3 *ONLY 8 BITS IN U-BREAK OF KB11-8/( 
1 171 S$: MOV 0, (R2) ‘LOAD REGISTER WITH PATTERN 
1 1714 CMP (R2) ,R3 “AND CHECK 
1 171 BNE 3$ “BRANCH IF INCORRECT 
1 1 2$: SEC “SET 'C* 
1 1 ROL RO “SHIFT DATA 
1 1726 BCS 1$ 
1 1 BR 4$ : 
1 1 3$: HLT sERROR DATA “IN RO NOT IN UBREAK REG 
10 1 BR 2$ =CONTINUE TEST 
19 031 4$: MOV (SP) +, (R2) “RESTORE ORIG UBREAK CONTENTS 
1 FL EAA AAAAARRERAAARAAAEAERARAAEAAAAERAAARAAAAAAAAARAREAEAAARRAAAAREAES 
(3) =*TEST 62 CHECK MFPI/MTPI INSTRUCTIONS 
(3) SERRA RAERRA AREA AE ER ARRAN RAAERAEREAERARAAARAAEAAARARRAR EERE 
(2) 
(2) 736 TST62: SCOPE 
(2) 740 112737 000062 001252 MOVB #62, aeSTSTNM :LOAD TEST NUMBER 
(2) 746 013737 001252 177570 MOV av$TSTNM, a#DISPLAY >:DISPLAY TEST NUMBER 
10361 754 032737 140000 177776 MPI: BIT #UM, aePSW KE ? 
1 762 001553 BEQ ENDCP “YES EXIT TEST 
1 764 010746 MOV -(SP) 
1 766 716 000134 ADD #5$-., (SP) 
10365 12637 000250 MOV (SP)+.aaMMVEC  ;:SET MEM MGMT ABORT VECTOR 
1 77€ 046 CLR ~(SP) “CLEAR CHECK WORD 
10 2000 01 MOV SP,R3 
10 1 6 MOV R3,-(SP) :PUT ADDRESS OF CHECK WORD ON THE STACK 
1 % 10 001601 TSTB  a@AMMON *CHECK IF MEM MGMT IS ENABLED 
1 1417 BEQ 1$ “BRANCH IF OFF 
1 13737 177640 177654 MOV @UIPARO, @FUIPAR6 =SET UP USER PAGE ADDR. REG. 
1037 Ie ? 006006 177614 MOV #6006 , @AUIPDRG =SET USER PAGE DESC REG R/W UP 6 PAGES 
1 13737 172240 172254 MOV a#SIPARO, a#SIPARG 
10374 12737 006006 172214 MOV #6006. Q4SIPDR6 :SET SUPER PAGE DESC. REG. 
75 06 140000 10$: ADD #140000, SP “SET CURRENT MODE'S STACK POINTER 
10 Me 010746 1$: MOV PC,-(SP) 
19 78 716 000024 ADD . #3$-.,<SP) 
19 12637 000020 MOV (SP)+,a#IOTVEC ;SET IOT TRAP VECTOR 
10381 0 10T : TRAP TO 3$ BELOW 
10 0 3266 000002 INC 2(SP) “ INCREMENT CHECK WORD 
10 141 BEQ 6$ 
10384 0O 72 4$: HLT -ERROR! MFP] MTP] FAILURE-FOR BETTER 
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CEQKCE .P11 12-MAR 11: T62 CHECK MFPI/MTPI INSTRUCTIONS SEQ 0156) 


10 7% 1 BR 6h : ISOLATION SUGGEST RUNNING MFPI DIAG. DCKTD/E 
10 7 40 3$: NOP *PSW=KERNEL MODE,PREV USER OR SUPER MODE 
10 1 MFP] = SP 7GET PREV. MODES STACK POINTER 
10 1 ; MFP]  a(SP)+ :GET DATA (AN ADDRESS) ON PREV MODE'S STACK 
10 1 6 000000 MFP]  a(SP) “GET DATA (=0) FROM PREV MODES ADDRESS 
1 119 40 =SPACE AND PUSH ONTO KERNEL STACK 
1 11 1 4$ ‘ERROR IF @RANCH TAKEN! SHOULD HAVE 4 ZERO ON THE STACK 
1 114 116 COM (SP) =COMPLEMENT OPERAND 
1 116 006636 MIP] a(SP)+ = POP OFF KERNEL STACK AND MOVE 
1 *IT TO PREV MODE’S SPAC 
1 120 00000 RTI “RETURN TO INST FOLLOWING IOT ABOVE 
1 122 104 S$: HLT “ERROR! MEMORY MANG. ABORT 
10 124 1 177776 CLRB  aAPSwW “SET PRIORITY LEVEL BACK TO 0 
10 130 012737 064254 000250 6$: MOV #KTABRT ,@AMMVEC :RESTORE VECTOR 
i 136 012737 054456 000020 MOV #SSCOPE , aM IOTVEC 
10400 032144 012706 000700 MOV #SUPSTK,SP sRESTORE STACK POINTER 
1 1 FL EAA AAAAEARAAARAAEAARAEAAARARAAAERAERAAEARARARERAAARAERARARARERRE EH 
"@) “*TEST 63 CHECK ILLEGAL HALT 
( ) 5 RARER AAEAAAAAARERAARAEERAEAAERAEAARRARRARREAREERAREAERARAREERE EH 
(2) 
(2) 150 TST63: SCOPE 
(2) 152 112737 001252 MOVB #63, a#STSTNM :LOAD TEST NUMBER 
(2) 160 013737 001252 177570 MOV av$TSTNM, a#DISPLAY > DISPLAY TEST NUMBER 
1 166 010746 HALT1: MOV PC,=(SP) :GET CURRENT PC 
1040 0 170 062716 000022 ADD #2$-., (SP) 
10404 174 011637 000004 MOV (SP) aWERRVEC ;SET ERROR TRAP VECTOR TO 2$ BELOW 
10405 0 012637 000010 MOV (SP)+,@@RESVEC :LOAD RESERVED INST TRAP VECTOR (11/40) 
10406 HALT :SHOULD TRAP TO 4 IN USER/SUPER MODE 
1040 104000 1$: HLT i *ERROR! HALT ABOVE FAILED IN USER/SUPER MODE 
10409 iS 010716 2$ MOV PC, (SP) :REPLACE RETURN PC WITH 
10410 14 716 000006 ADD #3$-., (SP) “ADDRESS OF 3$ BELOW 
1301 20 2 RT] “RETURN (TO 3$) 
1 18 4 012737 064422 000004 3s: MOV WERPRT .@WERRVEC :RESTORE ERROR TRAP VECTOR 
10414 012737 064350 000010 MOV WRESERR , @#RESVEC 
10415 0 105037 177776 CLRB 3s aA PS 
10416 032242 005037 177766 CLR @4CPUERR 
10417 cs RAEKAAAAAEAAEKRAARARAKAEREAARAAAAERARAAAAAARAAEAARERARARARERERARAAREAREAARE 
(3) “*TEST 64 CHECK RESET IN SUPER/USER MODE 
(3) SL ARR AAREREAERAEEREREEERAEAEERAEEREERERREAREERAEAARRAERAEEAREREERR EE 
(2) 
‘3 66 TST64: SCOPE 
(2) S50 112737 001252 MOVB #64, aaSTSTNM *LOAD TEST NUMBER 
(2) 013737 001252 177570 MOV av$TSTNM,a4DISPLAY * DISPLAY TEST NUMBER 
10618 77 RESET1: SCC 
1041 1 177776 MOV ayPsw,RO :GET CURRENT PSW 
10420 77 SCC 
10421 74 5 RESET 
104 4 76 02 177776 CMP arPsw.RO :CHECK THAT PSW UNCHANGED BY RESET ABOVE 
104 001401 BEQ +4 
104 HLT :ERROR! RESET CLEARED MODE BITS IN PSw 
10425 010037 177776 MOV RO, aaPSwW “RESTORE PSW (FOR ERROR) 
10426 03231 ENDCP: 
(1) 032312 000004 RELE6: SCOPE 
(1) 032314 010702 MOV PC,R2 
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“P11: 12=MAR=80 11:27 164 CHECK RESET IN SUPER/USER MODE SEQ 0137 
032316 702 900012 ADD #12,R2 
032322 012707 04404 MOV #RELOC PC :GO RELOCATE PROGRAM CODE 
0 0 REL66: .WORD 0O 
6666666666666 LAST ADDRESS OF CODE TO BE RELOCATED 66666666666 
fF AAAAAAAARAAAAAAAAAAAAARAAAARAARAAAAAAAARARARAAHAAKAAAAAAAAAAAES 
“*TEST 65 TEST STACK LIMIT REGISTER 
fF ARAAARAAARAAAAARAAREAAEAARARAAARAARARAAAAARARERAARARAARAAEARAES 
30 012767 000001 147040 MOV #1, STIMES ::DO0 1 ITERATION 
TST65: SCOPE 
0 Me 7? 000065 001252 MOVB #65,a"STSTNM :LOAD TEST NUMBER 
0 013737 001252 177570 MOV @4STSTNM, a#DISPLAY * DISPLAY TEST NUMBER 





5SBTTL START OF SECTION 7 
:7777777777777 FIRST ADDRESS TO BE RELOCATED 777777777 
032354 010700 REL7: MOV PC,RO : Pp 
9 56 00574 TST -(RO) *RO CONTAINS THE ADDRESS OF REL7 
010037 001610 MOV RO, a#FRSTAD 7SA 
0 01 MOV 2 "GET CURRENT PC 
0 1 032366 SUB * SUBTRACT RELOCATION FACTOR 
01 001604 MOV RO. a#FACTOR *SAVE RELOCATION FACTOR 
0 76 010 001262 MOV PERR =SET LOOP ADDRESS 
402 062 000030 001262 ADD #30, aNSLPERR § :ADJUST 
0 10 01 001262 001260 MOV @FSLPERR ,a#$LPADR 
416 105737 001600 TSTB @#NEXEC :BR IF TEST CODE TO BE EXECUTED 
0324 Cones BEQ _+ 
032424 000167 001302 JMP RELE? 
-THIS TEST SHIFTS A '1' BIT THROUGH ALL BIT POSITIONS 
0324 012702 177774 MOV ws! KLM T.R2 -GET ADDRESS OF STACK LIM REG 
0324 502 CLR (R2)+ :CLEAR STACK LIMIT REG 
0 436 032712 000020 BIT #20, (R2) -EXIT TEST IF °T* BIT IS SET 
64 901116 BNE 101$ 
032444 052712 000340 BIS #340, (R2) :SET PRIORITY LEVEL 7 TO PREVENT 
“ANY INTERRUPTS FROM OCCURRING 
032450 012700 000400 MOV #400,R0 -SET CHECK DATA 
032454 010042 1$ MOV RO,-(R2) *MOVE TO STACK LIMIT REG 
032456 022200 CMP (Rd). RO “AND CHECK RESULT 
632460 001401 BEQ 
032462 104000 HLT :ERROR! STACK LIMIT DID NOT 
:LOAD CORRECTLY. CORRECT RESULT 
032464 2$: ASL RO >SHIFT ‘1° BIT LEFT 
103372 BCC 1$ *LOOP UNTIL 1 BIT SHIFTS OUT 
4 CLR -(R2) “CLEAR STACK LIMIT REG 
;THIS TEST CHECKS THAT A PROPER 'RED* ZONE VIOLATION OCCURS, NOTE THAT 
*NO "RED ZONE’ VIOLATION WILL OCCUR IF IN USER/SUPER * 
“A RED ZONE VIOLATION PUSHES THE CURRENT PSW.PC ON A STACK AT 2 AND 0 
;AND_TAKES THE NEXT INSTRUCTION FROM THE PC IN LOCATIONS. THE INST~ 
*RUCTION CAUSING THE RED ZONE VIOLATION IS ‘ABORTED’. 
032472 010746 MOV PC, -(SP) -GET CURRENT PC 
032474 062716 000060 ADD #4$-., (SP) : FORM ADDRESS 0 OF 4$ BELOw 
032500 012637 000004 MOV (SP) +, a#ERRVEC “SET ERROR TRAP VECTOR TO 4$ BELOw 
032504 013737 177776 000006 MOV a4PSwW. aMERRVEC +2 “RETAIN CURRENT STATUS ON TRAP 
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CEQKCE.P11 12=MAR-80 11:27 OF SECTION 7 SEQ 0138 
10457 032512 010712 MOV PC, (R2) :SET STACK LIMIT TO CURRENT P{ 
10459 14 11206 MOV (R2),SP “AND STACK PTR = STACK LIMIT REG 
10460 16 01 MOV SP.R3 “SAVE STACK PTR 
10461 20 016 000336 MOV 336(R3) RG ; SAVE MEMORY LOC CONTENTS 
1 “AT 'RED ZONE’ BOUNDAR 
10463 $24 032737 140000 177776 BIT #UM, a#PSWw “BRANCH IF IN KERNEL MODE 
1 1403 BEQ 0$ 
10465 5 0466 000336 MOV R4, 336(SP) : SHOULD NOT CAUSE TRAP 
10466 032540 BR 100$ 
1 032542 005 000336 20$: CLR 336(SP) :SHOULD CAUSE ‘RED ZONE’ TRAP 
1 0 346 012 000 3$: MOV #SUPSTK,SP “RESTORE THE STACK 
10476 032552 104000 HLT “ERROR! FAILED TO TRAP 
10478 032554 032737 140000 000002 4%: BIT HUM, awe : CHE CK IF TRAPPED WHEN IN USER 
104 /SUPER MODES (2 CONTAINS OLD PSw) 
10474 032562 001013 BNE 99$ “GO TO ERROR CALL 
10475 032564 01 MOV SP.RO *STACK PTR SHOULD = 0 
10476 0 366 10M BNE 99$ -GO TO ERROR CALL IF NOT 0 
104 6 000336 CMP 336(R3) RS :CHECK THAT INST WAS ABORTED 
10478 574 001006 BNE 99$ -GO REPORT ERRPR 
10479 576 005012 5$: CLR (R2) “CLEAR STACK LIMIT REG 
10480 010705 MOV PCRS “GET CURRENT PC 
10481 0 062705 177744 ADD #3$-. .R5 -FORM ADDRESS OF 3$ ABOVE 
1 032606 020516 CMP R5, (SP) “CHECK THAT RETURN PC IS ON 
10688 “THE STACK (AT 0) 
10484 032610 001406 BEQ 100$ “EXIT TEST 
10486 ERROR 
10487 032612 00501 59$: CLR (R2) :CLEAR STACK LIMIT REG 
10488 0 14 010463 000336 MOV R4, 336(R3) “RESTORE MEM LOCATION 
10489 012706 000700 MOV #SUPSTK,SP “SET STACK PTR 
10490 0 104 HLT ERROR! 
10491 010463 000336 100$: MOV R4, 336(R3) “RESTORE MEM LOCATION 
10492 0 005022 CLR (R2)+ “CLEAR STACK LIM REG 
10493 0 012706 000700 MOV #SUPSTK, SP “SET STACK PTR 
10494 032640 04 ele 000340 BIC #340, (R2) ;SET PRIORITY LEVEL BACK TO 0 
10495 0 012737 064422 000004 MOV #ERPRT , AERRVEC “RESTORE ERROR TRAP VECTOR 
104 0 $2 013737 177776 000006 MOV @APSW, AFERRVEC+2 
1049 112737 000340 000006 MOVB  #PR7 aWERRVEC+2 
10498 0 042737 000020 000006 BIC WRITS ,AMERRVEC+2 
10499 032674 005037 177766 CLR a¥CPUERR :CLEAR ERROR REG 
10504 032700 1018: 
(4) FREER EAEREEKEREREERAEEEERRRAAAEREREAEAARAEREERARA EAA AARKERAEREEE 
(3) “TEST 66 MEMORY Y MANAGEMENT REGISTER TESTS 
(4) oe PDR TEST — THIS TEST WRITES 64. RANDOM #'S INTO EACH PDR REGISTER 
(4) 8 NOTE: IF MEM MGMT IS ENABLED ONLY PDR/PAR PAIRS 4-6 ARE TESTED. 
(3) FERRARA AREER EREEEEERAEREEKEREAEARAREAEREREEEARARAARAARAREERARRARE AES 
2° 
(2) 032700 000004 TST66: SCOPE 
(2) 03270 112737 000066 001252 MOVB 4#66,a#STSTNM :LOAD TEST NUMBER 
ose 032710 013737 001252 177570 MOV oSteIN a#D 1 SPLAY : DISPLAY TEST NUMBER 
0506 032716 012702 033150 KTPDR: MOV RTBL,R2 :SET TABLE ADDRESS OF PDR'S 
10507 032722 012705 100360 MOV F100860.RS >SET BIT MASK 
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MEMORY MANAGEMENT REGISTER TESTS 


MOV (R2)+,RO 

MOV #8.. (SP) 
@AMON 

BEOQ 3$ 

ADD #10,RO 
#3, (SP) 

MOV #32. ,R3 

CLR RG 

BIC R5.R4 

V RZ. (RO) 

CMP (RO) RS 

BNE 99$ 

COM R4 

BIC R5.R4 

MOV RZ. (RO) 

CMP (RO) .R4 

BNE 99$ 

ADD 

SOB 

CLR 

DEC 

BR 


;GET PDR ADDRESS 

EXIT ON °O* TERMINATOR 

;SET LOOP COUNT (FOR 8 REGS) 
;BRANCH IF MEM MGMT DISABLED 


:SET RO TO PDR4 

:AND LIMIT TO TEST 3 PDRS 

:SET DATA COUNT 

: INITIALIZE DATA TO BE WRITTEN 
;CLEAR NON-SETTABLE BITS 
sWRITE INT 

sAND CHECK DATA READ BACK 

:GO TO ERROR CALL 

; COMPLEMENT DATA 

;CLEAR NON-SETTABLE BITS 
sWRITE COMPLEMENT DATA INTO PDR 


sAND_CHECK 
:GO TO ERROR CALL 
:STEP DATA 


;STEP TO NEXT REGISTER 
;DECREMENT REGISTER COUNT 


;GET NEXT SET OF 8 REGISTERS 


:ERROR! INCORRECT DATA READ 
-BACK FROM PDR. ADDRESS OF 
:PDR IS IN.RO, DATA IS IN R4 
=STEP TO NEXT REGISTER 


PAR_TEST 
PAR TEST - THIS TEST WRITES 64. COMPLEMENTING RANDOM #°S INTO EACH PAR. 


=< RERAEARAKEAARARAAAKRAREARARARAEARAKRAARAEKERERAEARAREAAEREEREARERAERAAEKREAEE 


TST67: 


KTPAR: 
1$: 
2$: 


3$: 
4$: 


SCOPE 
MOVE 


#67, a4STSTNM :LOAD TEST NUMBER 
MOV avSTSTNM, a#DISPLAY : DISPLAY TEST NUMBER 
Mov #PARTBL .R2 :GET TABLE ADDRESS OF PAR'S 
MOV (R2)+,RO :GET PAR ADDRESS 
BEQ 100$ “EXIT ON 'O' TERMINATOR 
MOV #8. ,(SP) -SET LOOP COUNT (FOR 8 REGS.) 
1STB QMMON “BRANCH IF MEM MGMT DISABLED 


MOV #32.,R 
CLR RG 

BIC R5,R4 
MOV RG. (RO) 


sSET RO TO PARG 

:AND LIMIT TEST TO 3 PARS 
:SET DATA COUNT 

s INITIALIZE DATA 

:CLEAR NON-SETTABLE BITS 
;WRITE INTO PAR 

sAND CHECK 

; TAKE ERROR EXIT 

: COMPLEMENT DATA 

: CLEAR NON-SETTABLE BITS 
sWRITE COMPLEMENT DATA 
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P11 12=MAR=80 11:27 167 PAR TEST SEQ 0140 
122 021 CMP (RO) ,R4 :AND CHECK 
124 001 BNE 99$ [TAKE ERROR EXIT 
1 1 ADD R1,R4 ; STEP DATA 
1 13 SOB R3,4$ “LOOP UNTIL FINISHED 
1 2 20 5$: CLR (RO) + 
1 16 DEC (SP) :DECREMENT REGISTER COUNT 
1 90139 BNE 3$ “BRANCH IF 8 REGS NOT DONE 
140 743 BR 1$ 
033142 104000 99$: HLT sERROR! INCORRECT DATA READ BACK 
:FROM PAR. ADDRESS OF PAR IS IN 
“RO, DATA IS INR 
0 144 000772 BR S$ *DO NEXT REGISTER 
146 100$: 
033146 000416 BR $770 :GO TO NEXT TEST 
: TABLES FOR PDR y PAR TESTS ABOVE’ 
150 172500 PDRTBL: .WORD KIPDRO 
152 177600 “WORD UIPDRO 
154 17 “WORD  SIPDRO :CHANGED TO 'O' IF 11/40 
156 17 “WORD  KDPDRO 
160 1 “WORD UDPDRO 
162 1722 “WORD  SDPDRO 
164 WORD : TERMINATOR 
196 172540 PARTBL: .WORD KIPARO 
1 17764 “WORD UIPARO 
172 172240 “WORD  SIPARO :CHANGED TO "O° IF 11/40 
0 174 17 “WORD  KDPARO 
176 177660 WORD ARO 
0 172260 “WORD  SDPARO 
2 .WORD 0 : TERMINATOR 
i—~ was: 
=*TEST 70 CHECK KT ABORT LOGIC 
:* THIS TEST CHECKS KT ABORT LOGIC. TEST CREATES AN ABORT CONDITION 
ze AND INSURES THAT ABORT IS TAKEN PROPERLY. NOTE: TEST IS EXECUTED ONLY 
* IF TEST IS ENTERED WITH MEM MGMT ENABLED. 
«  RERRRRRREERRE EERE RRREREREERRERA ERE AR EEE R AREER ERE REE REE 
TST70: SCOPE 
000070 001252 MOVB #70,a4$TSTNM :LOAD TEST NUMBER 
14 001252 177570 MOV a¥$TSTNM,a4D1SPLAY * DISPLAY TEST NUMBER 
001601 KTABT: iste amc :BRANCH IF MEM MGMT DISABLED 
72350 CLR @FK IPARG :SET UP MEM MGMT REGISTERS 
72310 CLR @FKIPDR4 *TO ABORT IF A MEMORY 
650 CLR @AUIPARG “REFERENCE IS “MADE TO 
77610 CLR QAUIPDRS ‘ADDRESSES (VIRTUAL) BETWEEN 
172250 CLR @ASIPARG 
172210 CLR @ASIPDR4 
000250 1$: MOV QAMMVEC.-(SP)  ;SAVE MEM MGMT VECTOR 
000252 MOV QYMMVEC+2,-(SP) : AND PRIORITY . 
746 MOV PC, -(SP) -SET MEM MGMT 
716 ADD #4$-., (SP) “VECTOR TO 4$ BELOW 
33276 012637 000250 MOV (SP) +, aAMMVEC 
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T70 CHECK KT ABORT L SEQ 0141 





7? 177776 000252 MOV aePSW, aMMVEC+2 
CLR RO : CLEAR ABORT | NDICATOR 
MOV PC .R2 “SET R2 AND R3 NOTE: 
MOV #160000 ,R3 ; THE REF AVIA 3 CAUSES THE 
MOV -(R2), (R3)+ T 
3$ TST RO “BRANCH IF THE ABORT OCCURRED 
eo 
HLT :REPORT ERROR 
100$ 
: ABORT HERE 
177776 i$: MOV awPsw,RO :SRO SHOULD CONTAIN 
SWAB RO “CAUSE FOR ABORT AND 
ASR RO “ALSO WHICH SEGMENT 
177637 BIC #1 77637, RO “WAS IN USE WHEN ABORT 
190011 ADD #10001 1 RO “OC CURRED 
572 CMP 0,a4#SR sro" 
033320 MOV #2$,RO :GET ADDRESS OF INST 
177576 CMP RO, a#SR2 “THAT ABORTED 
BNE 99$ 
000362 MOV #362,RO 
177574 CMPB ~—Ss« RO, A#'SR1 :SR1 CONTAINS REGISTER 
BNE “MODIFICATIONS MADE 
000025 MOV #23,RO 
177575 CMPB—Ss«a RO, @#'SR1+1 
BNE 99$ 
033320 MOV #2$,RO 
TST (RO) + :RO=ADDRESS OF INST FOLLOWING ABORT 
CMP RO, (SP) : (3$) 
99$ 
RTI RETURN 
-ENTER HERE ON ERROR 
59$: HLT :REPORT ERROR 
MOV PC, (SP) 
177664 ADD #3$-. ; (SP) 
RTI RETURN 
000252 100$: MOV (SP) +, aaMMVEC+2 RESTORE ABORT VECTOR 
000250 MOV (SP)+, aMMMVEC  :& PRIOR 
000001 177572 si MOV #1, a#SRO “CLEAR ERROR COND I TIONS 
(4) ss Saath onsets saehdadisinaiiiamee dedbinbtinenendetbedeeenestenete 
(3) “TEST 71 MAPPING REGISTER TESTS 
(4) * THIS TEST LOADS RANDOM #'S INTO EACH MAPPING REGISTER 
(3) ss REEKAARARAAARKEAARAAARAARAEKARAAERAAAAARAKAARAAARKAAAREARRAREARAAREREAREE 
(2) 
(2) TST71: SCOPE 
(2) 000071 001252 MOVB #71. a#STSTNM sLOAD TEST NUMBER 
(2) 001252 177570 MOV aeSTSTNM, a#DISPLAY ; DISPLAY TEST NUMBER 
106 3 000040 172516 ~ BIT aa ITS OARS ON? 
10654 BNE MAPTWO “ BRANCH IF YES 
10655 170200 MAPTST: MOV #MAPLO,RO SET ADRS ,OF FIRST MAP REGISTER 
106 000042 000046 CMP 962 .at46 *ACT11 ? 
1065 000020 a ADD #20,RO :USE ONLY MP4 AND UP... 
10660 000700 MOV #SUPSTK, SP :SETUP THE SP 
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033534 
; 
be seee 
03: 
' 1$: 
' 3 4$: 
' +f: 1 2s: 
935: 1 
933574 
933576 021 
] » 6 
033602 10 
933604 010504 
133606 0% 1608 
033610 010410 
eae le 1004 
03361 78 
0335616 
03 36 ‘ 1 
033622 040204 
933624 010410 
033626 021004 
933630 001016 
933632 005105 
033634 010504 
033636 040204 
933642 021004 
35.56 
0336 $61076 
033646 060705 
5650 740 
$3652 077332 
+7. 022020 
336 700 170400 
56 1337 
0 
033666 104000 99$: 
001602 MAPTWO 
040000 170210 
170212 
0 170204 
170206 
170200 
170202 
RELE7: 
000012 
044042 
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MAPPING REGISTER TESTS 


REL77: .WORD 0 
37777777777777 LAST ADDRESS OF 


M11 
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(SP) :SET BIT MASK FOR MAPLO <15-01> 
Aare 00,R2 “AND ALSO FOR MAPHO <21-16> 
arse ane *ACT11 22? 
#28.,R3 ; 
4$ 
#32. .R3 -SET DATA COUNT 
5 “SET INITIAL DATA 
R5 RG =GET DATA 
(SP) RG *CLEAR UNUSED BITS 
R4, (RO) “LOAD DATA INTO MAPLO <15-01> 
(RO) ,R4 =CHECK DATA 
: H IF INC 
5 “COMPLEMENT TEST DATA 
R5,R4 “GET TEST DATA 
(SP) .R4 “CLEAR UNUSED BITS 
R4. (RO) “LOAD COMPLEMENT DATA 
(RO) .Ré4 : HECK 
(RO) + : STEP TO NEXT REGISTER 
R5,R4 “GET COMPLEMENT TEST DATA 
R2,R4 “CLEAR UNUSED BITS 
R4. (RO) ‘LOAD TEST DATA INTO MAPHO <21-16> 
(RO) .Ré sAND CHECK 
R5 : COMPLEMENT TEST DATA 
R5.R4 “GET TEST DAT 
R2,R4 = CLEAR TMUSED. BITS 
R4. (RO) =LOAD TEST DATA 
{R0) .Ré *AND CHECK 
PC,R5 :FORM NEXT TEST DATA 
= (RO) ;RESET PTR TO REGISTER <15-01> 
TEST UNTIL ALL #'S USED 
Rose (RO)* STEP TO NEXT REGISTER PAIR 
manp0+128. .RO :BRANCH IF NOT LAST PAIR 
MAPTWO 
:ERROR! INCORRECT DATA READ BACK 
“FROM MAP REG. ADRS OF REGISTER 15 
“IN RO, GOOD DATA IS IN R4 
ayvov *QV OR AUTO-ACCEPT? 
RELE7 “BRANCH IF NO 
#40000 ,a#MAPL2 
ayMAPH? 
#20000. @4MAPL1 ;:SET MAP 1 AND 2 INCASE ACT11 
@eMAPH 4 
ayMAPLO 
@4MAPHO 
PC .R2 
#12,R2 
#RELOC PC :GO RELOCATE PROGRAM CODE 


CODE TO BE RELOCATED 77777777777 
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MAPPING REGISTER TESTS SEQ 01435 
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“*TEST 72 FLOATING POINT TEST 1 
** 
oe THIS TEST TAKES TWO RANDOM NUMBERS (A AND B) AND 
:* COMPARES THE RESULTS OF TWO EQUAL CALCULATIONS. 
:* EA H SECTION EVALUATES A DIFFERENT EQUATION AS DESCRIBED BELOw: 
8 SECT1 (A+B) ##2=Aee2+2eAeQ+Ben? 
‘* SECT2 (A+B) * (A-B) =Ate 2-882 
ie SECT3 A/B*B=A 
seatlisdetanchan de aabeinenadbanesesebiupesaeetonseceseteeeees 
145420 MOV #1,STIMES ::DO0 1 ITERATION 
1ST72: SCOPE 
001252 #72, aASTS :LOAD TEST NUMBER 
177570 MOV arSTSTNM, BADISPLAY “DISPLAY TEST NUMBER 
001376 MOV #1 ,QASTIMES :SET rye AY, TO 1 
.SBTTL START OF SECTION 8 
: 8888888888888 FIRST ADDRESS TO BE RELOCATED 888888888 
REL8: MOV PC,RO =GET PC 
TST :RO CONTAINS THE ADDRESS OF REL8 
MOV *GET CURRENT PC 
SUB * SUBTRACT RELOCATION FACTOR 
MOV “SAVE RELOCATION FACTOR 
MOV *SET LOOP ADDRESS 
001262 ADD F 
001260 . MOV 
TSTB :BR IF TEST CODE TO BE EXECUTED 
rf: 
001550 BIT #FPOPT ,a#OPT.CP :FLOATING POINT AVAILABLE? 
BNE 100$ “BRANCH IF YES 
JMP REL88+2 
100$: JSR PC, avFLTSGL :GET OPERANDS 
LDFPS “INIT FPS 
LDF ACI “LOAD A OPERAND 
LDF arSTMP2 .ACO LOAD B OPE 
001464 MOV ; “SETUP EXTENDED 
001462 MOV QFSREG] ,aWSACO : NTS 
JSR PC .FLTADD RFORM THE ADD 
STF AC1,ACO “SETUP ACO TO 
001462 @NSAC1,a4$ACO  :PERFORM THE SQUARE 
JSR PC FLTMPY *DO THE MULTIPLY 
STF AC) .aaSTMPG >SAVE RESULT 
001332 ~ MOV @YSAC1,a#$REG2 :AND SOFTWARE EXP 
“NOW DO THE RIGHT HAND SIDE OF THE EQUATION 
“DO THE A®A FIRST 
001462 MOV EGO,a#$ACO :GET EXT EXPONENT 
LDF av$TMPO,ACO “LOAD OPERAND A 
001464 MOV av$AC0, aw$AC1 ;SET OPERAND B EXT EXPONENT 
LDF ACO,AC1 “LOAD B 
JSR PC FLTMPY ‘EXECUTE THE MULTIPLY 
STF AC1,AC2 *SAVE RESULT 
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START OF SECTION & 


MOV avSAC1 .avSAC2 
“NOW DO THE 8*8 
LDF avSTMP2,ACO :LOAD 8 OPERAND 
LDF ACO,AC1 
@YSREG],a#SACO AND EXT EXPONENT 
avSAC0, avSAC1 
J PC FLTAPY :D0 THE MULTIPLY 


SAVE THE RESULT 


:NOW DO bony 2*B*A 
;LOAD THE B OPERAND 


LDF -(R1),AC1 “LOAD THE A OPERAND 
MOV 61, 0 [AND THE EXT EXPONENTS 
MOV GO; aw$AC1 


:DO_THE MULTIPLY 

;SETUP TO MULTIPLY BY TWO 
MOV , SAC 
JSR PC. ~FLTMPY :DO THE MULTIPLY 


:NOW SUM THE RESULTS 
MOV 


@FSAC3, af SACO 
LDF AC3,ACO :GET RESULT OF B*8 
JSR PC_FLTADD “ADD THE RESULT 
LDF AC2,ACO “GET RESULT OF A®A 
MOV a¥SAC2 , aNSACO 
JSR PC .FLTADD :ADD THIS RESULT 
STF AC1 ,a#STMP6 “SAVE FINAL RESULT 
MOV a¥SAC1, a#SREGS 


“NOW CHECK BOTH SIDES OF THE EQUAT ive 





=CALCULATE THE NUMBER OF CORRECT BIT 
PUT LARGEST E T Ai f Asse OR Bree IN $AC2 
BGE :BRANCH IF $AC2 ALREADY HAS LARGEST 
MOV *$AC3 WAS LARGER 
1$: SUB :NOW CALCULATE NUMBER 
SUB -OF CORRECT BITS WITHIN 2 
NEG “MAKE RESULT POSITIVE 
LDF =LOAD RESULT OF LEFT HAND SIDE 
MOV SAND EX XTENDED EXPONENT 
JSR *SUBTRACT TO SEE HOW CLOSE THEY ARE 
SUB GET DIFFERENCE IN EXT EXPONENTS 
“ACTUAL EXP'S ARE EQUAL TO 200 
BPL 3$ -ENSURE RESULT IS POSITIVE 
NEG aVSAC1 
3$: CMP @¥SAC2.a#$AC1 :ANSWERS WITHIN ALLOWABLE NUMBER? 
pa BLE SECTe “BRANCH IF YES 
2 + RRRREREREERRERERRERREREERERSRERRERRERERERERRERERERREREREREREEED 
SECT: | LDFPS #0 


LDF @4STMPO AC 
LDF @4$TMP2 ACO 


;LOAD A OPERAND 
;LOAD 8B OPERAND 


SEQ 0144 
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P11 12=MAR-80 11: START OF SECTION 8 SEQ 0145 
013737 001 1464 MOV @FSREGO, av$AC1 
1 13535 001380 oo 1aee MOV QFSREG) .a#SACO 
18 767 001620 JSR PC FLTADD :ADD THEM 
1741 STF AC1,AC2 *SAVE IN AC2 
013 001464 001466 MOV @ASAC1,a"$AC2 = AND EXT EXPONENT 
:NOW DO THE A-8 
532 172537 001352 LDF @a#STMPO,AC1 :LOAD OPERAND A 
236 013737 001326 001464 MOV @YSREGO,a#$AC1 AND EXT EXPONENT 
172437 001 LDF a#STMP2.ACO “LOAD OPERAND 8 
350 O13 ? 001330 001462 MOV @FSREG) , aAFSACO 
767 001554 JSR PC, FLTSUB : SUBTRACT THEM 
:NOW DO (A+B) *(A=3)5 
562 179402 LDF AC2,ACO :GET RESULT OF (A+B) 
564 1 001466 001462 MOV a¥SAC2, an"SACO 
767 001474 JSR PC. FLTMPY :FORM THE PRODUCT 
5 4137 001362 STF AC1, a#STMP4 “SAVE RESULT 
013737 001464 001332 MOV @#SAC1,a"SREG2 :AND EXT EXPONENT 
sNOW DO THE B*B 
10 172637 001356 LDF avSTMP2 ACO :LOAD OPERAND B 
14 013737 001330 001462 MO @FSREG) , AFSACO 
2 300 LDF ACO-ACI :B OPERAND IS IN ACO 
4 01 3 001 001464 MOV arSACO ana C1 :AND EXT EXPONENT 


[SAVE RESULT IN AC2 


= 


;LOAD OPERAND A 


sEXECUTE THE MULTIPLY 
7SAVE EXT EXPO OF A*A 


:GET 8*6 
sAeA IN ACT 
:SAVE IN MEMORY 





Nowes 
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TMP6 
MOV 1, avSREG3 
NOW COMPUTE THE RESULTS 





;CALCULATE THE ke OF CORRECT BITS 
3737 001466 001470 CMP 2,Q9S$AC3 ;DETERMINE WHICH EXP IS LARGER 
: *BRANCH IF AC2 LARGER 
7 1 1470 1466 MOV :PUT LARGEST IN AC2 
746 «1 7 1464 1466 2$: SUB 
754~«CO&W1 7 5S 001466 SUB 
7 1466 NEG 
1 7 1 LDF >GET LEFT HAND SIDE 
gt? 7 1 001462 MOV 
760 1 JSR > SUBTRACT TO SEE HOW CLOSE THEY ARE 
163737 1334 001464 SUB SUB EXT EXPONENTS 
:ACTUAL EXPONENTS ARE EQUAL 
12 1 BPL 1$ sMAKE SURE RESULT IS POSITIVE 
14 001464 NEG av$ACl 
3737 001466 001464 1S: CMP QFSAC2,a4$AC1 ;=RESULTS WITHIN RANGE ALLOWED? 
3401 BLE SECTS *BRANCH IF YES 
0350 104014 ERROR 14 =RESULTS WRONG 
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START OF SECTION 8 


gs SAARAARAAAAAAAAAAKRAAAAASAAAAAARAAAAAAAAKAKARAKAAKeKeaKaneanenes 


SECT3: LDF arvSTMPO,AC1 :LOAD OPERAND A 
LDF arSTMP? .ACO ‘AND OPERAND B 
MOV a#SREGO, av$AC1 
MOV a¥SREG1 .afv$ACO 
JSR PC ,FLTDIV :GO DIVIDE THE 
JSR PC FLTMPY “MULTIPLY RESULT BY B 
STF AC 1, aaSTMP4 :SAVE RESULT 
aFSAC1 ,a#SREG2 
LOF avsTmPO, ACO :LOAD OPERAND A 
STF ACO. a#$TMP6 “SAVE INCASE TYPE OUT 


: SUBTRACT RIGHT AND LEFT HAND SIDES 
SUB a¥SREGO,a4$AC1 SEE IF RESULT 


BPL 1$ “ENSURE DIFFERANCE IS POSITIVE 
NEG aySAC1 
1$: CMP #22. , @#SAC1 :RESULTS WITHIN 2 BITS? 
BGT ; H IF NO 
BR TST73 >:GO TO NEXT TEST 
2$: ERROR 14 “RESULTS WRONG 


'WeRAASOAASLASEALASALALEAAAAAAAA AREA RAR AL RAL ARAL RAR AL ALAA AA LALA A ASS S| 


“*TEST 73 FLOATING POINT TEST 2 


re 





:* THIS TEST TAKES TWO RANDOM NUMBERS (A AND B) AND 
:* COMPARES THE RESULTS OF TWO EQUAL CALCULATIONS. 
:* EACH SECTION EVALUATES A DIFFERENT EQUATION AS DESCRIBED BELOW: 
:* SECT]  (A#8) #8 2=Ane24+2eAnB+Bee2 
:* SECTS (A+B) * (A-B) =Aee2-Ben2 
;@ ° SECT A/B*B=A 
5 FERRARA RAEREAAEREARAAERAREARAAEARAREREARAEKKERERERERERRERER AEE 
TST73: SCOPE 
MOVE #73. a%STSTNM sLOAD TEST NUMBER 
MOV avSTSTNM, a#DISPLAY *:DISPLAY TEST NUMBER 
MOV aNSTIMES 
100$: JSR :GET RANDOM OPERANDS 
LDFPS : INIT FPS 
LDF “LOAD A OPERAND 
LDF “LOAD B OPERAND 
MOV “SETUP EXTENDED 
MOV : EXPONENTS 
JSR *PERFORM THE ADD 
STF :SETUP ACO TO 
MOV *PERFORM THE SQUARE 
JSR *DO THE MULTIPLY 
STF “SAVE RESULT 
MOV C1,a#$REG2 :AND SOFTWARE EXP 
*NOW DO THE RIGHT HAND SIDE OF THE EQUATION 
“DO THE A*A FIRST 


;GET EXT EXPONENT 
el RAND A 
;SET OPERAND 8 EXT EXPONENT 


SEQ 0146 


om 
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EQKCE P11 173 FLOATING POINT TEST 2 SEQ 0147 
10903 5312 12 172500 LDF ACO,AC1 :LOAD B OPERAND 
4 004 000752 JSR PC FL Trey TEXECUTE THE MULTIPLY 
3 461 STF Aci.A =SAVE RESULT 
013 001464 001466 MOV aySAC ‘ « ewsac2 
“NOW DO THE B*8 
5 172437 001362 LDF arSTMPS ACO :LOAD B OPERAND 
3 1 LDF ACO,AC1 
01 001330 001462 MOV @NSREG1,a#SACO AND EXT EXPONENT 
13737 001462 001464 MOV av$AC0, av$AC1 
2 767 000714 JSR PC FLTMPY :DO THE MULTIPLY 
5 1741 3 STF Aci,AC3 “SAVE THE RESULT 
5 013 001464 001470 MOV aASAC 1 awSAC3 
:NOW DO THE 2*B*A 
5 012701 001362 MOV #STMPG RI 
172611 LOF (R1) ACO [LOAD THE B OPERAND 
74 172561 LDF -(R1),AC1 *LOAD THE A OPERAND 
6 01 737 001330 001462 MOV @¥SREG1,a#$ACO :AND THE EXT EXPONENTS 
13737 001326 001464 MOV @*SREGO, av$AC1 
12 767 000654 JSR PC. FLTMPY :DO0 THE MULTIPLY 
341 1 2 7 040000 LDF #°04 ACO  :SETUP TO MULTIPLY BY Two 
012737 900002 001462 MOV #2, aASACO 
5430 004767 0006 JSR PC FLTMPY :D0 THE MULTIPLY 
“NOW SUM THE RESULTS 
9 34 013737 001470 001462 MOV aFSAC3,a"SAC0 
2 172403 LDF AC3,ACO :GET RESULT OF B*8 
0 000672 JSR PC. FLTADD “ADD THE RES 
1724 LDF AC2,ACO “GET RESULT OF A®A 
013737 001466 001462 MOV @FSAC2, a#SACO 
000656 JSR PC, FLTADD :ADD THIS RESULT 
3464 174137 001512 STF ACi,a#FLTMP1  § :SAVE FINAL RE 
035470 013737 001464 001334 MOV @¥SAC 1, a#SREG3 


NOW CHECK BOTH SIDES OF THE EQUAT ION 
CALCULATE THE NUMBER OF CORRECT BIT 
:PUT LARGEST EXPONENT OF Asse OR Bess IN SAC2 
CMe BFSAC2, 


737 001466 001470 
:BRANCH IF SAC2 ALREADY HAS LARGEST 

Sears. avSAC2  :$AC3 WAS LARGER 
avSAC) .a#SAC2 ;NOW CALCULATE NUMBER 
#52. ,ahSAC2 OF CORRECT BITS WITHIN 2 
aySAC2 ‘MAKE RESULT POSITI 
@sFLTMPO.ACO LOAD RESULT OF LEFT HAND SIDE 

NDED EXPONENT 






1$: 





SEE GEERT 
~N “iw 

S888 

SSRES 

BEE 

See 

SReeaR 


7 
015737 Oalae 001462 MOV @#SREG2,aNSACO AND EXTENDED E 
ne JSR PC PCAFLTSUB ; SUBTRACT TO SEE HOW CLOSE ney ARE 
163757 0013 001464 SUB -QASA GET DIFFERENCE IN EXT EXPONENTS 
1 :ACTUAL EXP’S ARE EQUAL TO 200 
3$ ENSURE RESULT IS POSITIVE 
001464 NEG a¥$AC1 
001466 001464 3$: CMP @¥SAC2,04SAC1 ;ANSWERS WITHIN ALLOWABLE NUMBER? 
574 BLE SECT2D ;BRANCH IF YES 
576 1 016 4$: ERROR 16 :RESULTS ARE WRONG 


: s ERRRERERERE ERA RRRRRREREREEEREREREER EERE RERRER RARER ERE EERE 


170127 000200 SECT2D: LDFPS #200 


ee ee ee ee ee ee we et et et aed ed et et 
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CEQKCE.P11 12=MAR 173 FLOATING POINT TEST 2 SEQ 0148 
:D0 A*B 
172537 00135 LDF aeSTMPO,AC1 :LOAD A OPERAND 
10 172637 001 LDF aySTMP4 ACO [LOAD B OPERAND 
14 013737 001 001464 MOV @YSREGO. av$SA 
13737 001 001462 MOV @#SREG1 .a#SACO 
7 506 JSR PC. FLTADD :ADD THEM 
“ 1761 STF ACi,AC2 “SAVE IN AC2 
013737 001464 001466 ‘iio mov , Q¥SAC1,a#$AC2  <:AND EXT EXPONENT 
172537 901 52 LDF avSTMPO,AC1 :LOAD OPERAND A 
013737 001 001464 MOV @*SREGO,a#SAC1 :AND EXT EXPONENT 
172437 001 LOF aySTMPS ACO “LOAD OPERAND B 
013 0015 001462 MOV QFSREG1 .avSACO 
42 JSR PC. FLTSUB : SUBTRACT THEM 
:NOW DO (A+B) *(A=8) 
7% 172402 LDF AC2,AC0 :GET RESULT OF (A+B) 
7% 01 001466 001462 MOV C2, a#SACO 
0047 7 900362 JSR PC .FLTMPY -FORM THE PRODUCT 
3710 174137 00150 STF ACi,a#FLTMPO  :SAVE RESULT 
714 013737 001464 001332 Fane MOV saad QFSAC1,a#SREG2 :AND EXT EXPONENT 
2 172437 001 : :LOAD OPERAND B 
Bree Sh? OO1380 001462 
17 500 :B OPERAND IS IN ACO 
1 001462 001464 ; AND EXT EXPONENT 
7ab 767 
730 1741 ; “SAVE RESULT IN AC2 
013 001464 001466 
:NOW DO 
5760 17 437 1352 :LOAD OPERAND A 
A 013737 1 001462 
2 17 500 
737 001462 001464 
000264 


sEXECUTE THE MULTIPLY 
MOV ;SAVE EXT EXPO OF A*A 
NOW DO Ax*2-8*%2 


43939 001466 001462 MOV Ata 3 IN” AC] 
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767 000306 JSR 
137 001512 STF Art. TRL TAP) :SAVE IN MEMORY 
13737 001464 001334 MOV arSREG3 
:NOw COMPUTE THE RESULTS 
“CALCULATE THE NUMBER OF CORRECT BITS 
737 001466 001470 cme 2 aesacs DETERMINE WHICH E EXP Is LARGER 
; 001470 001466 MOV a¥SAC3 arc *PUT LARGEST IN AC2 
163737 001464 001466 28: SUB OFSACT aF5A 
162737 5 001466 SUB #53. ,aeSAC2 
4 7 001466 NEG anSac2 
190 1 ¢ 7 001502 LDF @*FLTMPO,ACO GET LEFT HAND SIDE 
104 013737 001332 001462 MOV @ASREG2 , aNSACO 
o1l2 0047 7 900220 JSR PC. FLTSUB : SUBTRACT TO SEE HOW CLOSE THEY ARE 
116 163737 001 001464 SUB av$REG3.a"$AC1 :SUB EXT EXPONENTS 
“ACTUAL EXPONENTS ARE EQUAL 
36126 100092 BPL 1$ “MAKE SURE RESULT IS POSITIVE 
126 005437 001464 NEG avSAC1 
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SECT3D: LDF arSTMPO,AC1 
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173 FLOATING POINT TEST 2 


1$: CMP @FSAC2,A4SAC1 -=RESULTS WITHIN RANGE ALLOWED? 
BLE > he ;BRANCH IF YES 
ERROR 16 RESULTS 

UT IT TIT L ILL iiiiiiiiiiiiiiiiiiiiiiis 


LOF a#STMPS .ACO [AND OPERAND B 
MOV GO; aa$AC1 


avSREGO, 
MOV @#SREG1 .a#SACO 
JSR PC,FLTDIV :GO DIVIDE THEM 
JSR PC-FLTMPY “MULTIPLY RESULT BY B 
STF Aci,a@#FLTMPO = SAVE RESULT 
MOV QASAC 1 a#SREGZ 
LDF TMPO ACO :LOAD OPERAND A 
STF ACO. @aF LTMP1 “SAVE INCASE TYPE OUT 
MOV @ASREGO, a#SREG3 
JSR PC. FLTSUB : SUBTRACT RIGHT AND LEFT HAND SIDES 
SUB avSREGO, 1 “SEE IF RESULT Ok 
BPL 1$ “ENSURE DIFFERANCE IS POSITIVE 
NEG aVSAC1 
1$: CMP #54. @N#SAC1 sRESULTS WITHIN 2 BITS? 
BLE RELEB *BRANCH IF YES 
ERROR 16 “RESULTS WRONG 
BR RELES 
FREAK AAAAERAAAERAEAEREEAEEAEAARERAARAARKEAEAEAEERAAAAEARAAAERAAER AED 
* SBTTL FLOAT ING POINT MULTIPLY ROUTINE 
* THIS ROUTINE MULTIPLIES THE CONTENTS OF ACO AND ACT 
:* AND LEAVES THE RESULT IN AC1. IT ALSO TAKES CARE OF 
8 THE SOFTWARE EXPONENTS THAT ARE KEPT IN $ACO AND $AC1. 
= REAR AAAERARAARARARAAAERARAERARARAARERHAERARERAEARAARAERRRE EER 
FLTMPY: ADD @¥$ACO,a"$AC1 ;:ADD SOFTWARE EXPONENTS 
MULF ACO, AC1 :D0 THE MULTIPLY 
MOV #100400, -(SP) T CONTROL WORD ON STACK 
JSR PC, a¥EXPE “CALCULATE EXT EXPONENT 
1$: RTS PC ‘RETURN 


Pettitt itiiiiit iii tii titi 
-SBTTL Arey POINT DIVIDE ROUTINE 
; rAd DIVIDES THE CONTENTS OF AC1 BY ACO 
;* AND * LEAVE HE RESULT IN ACI. 


 aausuanansusnsvantuenessuensnsscstonstonsseassenensnsnanenssees 


-ADJUST SOFTWARE EXPONENTS 
DIVE ACO. ACT *EXECUTE THE DIVIDE 
#100600,-(SP) :PUT CONTROL WORD ON STACK 
JSR PC, aWEXPEXT “CALCULATE EXT EXPONENT 
1$: RTS PC ‘RE TURN 


ere iieti tii iiiiiiititi iii 
“STIL ee ie POINT ADD ROUTINE 
; THIS ROUTINE ADDS THE CONTENTS OF ACO TO ACI. 
* THIS CAN ONLY BE DONE IF THE SOFTWARE EXPONENT 
;* ARE CLOSE ENOUGH TOGETHER SUCH THAT AN ADJUSTMENT 
-* OF THE REAL EXPONENT LEAVES A NON-ZERO NUMBER. 


:: Pee RERRRERERRREREEEAEEEEREREREREREREARERERERERERRRRERERDEREeES 
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cc ee ee ed ed ed edt ot ot 


BEGRSFRANTSISSSSSSSSRSRASSSSSSFLRSSSSSSSSSESEESE 


036250 


1 DoMAR FLOATING POINT ADD ROUTINE SEQ 0150 
10667 9001 34 FLTSUB: MOV SP. SUBFLG :SET SUBTRACT FLAG 
37 1462 001464 FLTADD: CHP orga CO,a"$AC1  =CHECK SOFTWARE EXPONENTS 
1434 BEQ 2$ 
;ACCUMULATOR 1 IS LARGER THAN ACCUMULATOR 0 ° 
01 001464 MOV av$SAC1.R RAND 8 SOFTWARE EXP 
1 901462 SUB avSACO.R “GET DIFFERENCE IN SOFTWARE EXP'S 
000071 CMP R2,457. “EXP WITHIN DBL PREC RANGE? 
3 BGE 7$ “BRANCH IF ADD NOT REQUIRED 
“RESULT IS OPERAND B 
00540 NEG R2 
1764 LDEXP R2,ACO :RELOAD THE EXPONENT 
0 7? 177703 7$: LDEXP #-75,ACO AKE EXPONENT SO HARDWARE 
000417 BR 2$ MLL DETECT OUT OF RANGE 
“ACCUMULATOR 0 IS LARGER THAN ACCUMULATOR 1 
013702 001462 i$: MOV av$AC0,R2 :GET SOFTWARE EXP OF OPERAND A 
163702 001464 SUB a¥SAC1.R2 “GET DIFFERENCE IN EXP'S 
01 001462 001464 MOV @*SACO.aNSAC1  :MAKE SOFTWARE EXP'S EQUAL 
020227 000071 CMP Re. 7. :EXP WITHIN DBL PREC RANGE? 
3 BGE :BRANCH IF NO 
02 NEG RD 
176502 LDEXP R2,AC1 :RELOAD THE EXPONENT 
000402 BR 2$ 
“ACCUMULATOR 0 IS MUCH LARGER THAN ACCUMULATOR 1 SO RESULT IS 0 
176527 177703 4$: LDEXP w#-75,AC1 :FAKE EXPONENT SO HARDWARE 
:WILL DETECT OUT OF RANGE 
005767 000026 2$: TST SUBF LG OR SUBTRACT? 
001402 BEQ 5$ “BRANCH IF ADD 
SUBF ACO,AC1 
S$: ADDF  ACO.Ax1 :EXECUTE THE ADD 
é$: MOV #100400,-(SP) :PUT CONTROL WORD ON STACK 
JSR PC, aWEXPEXT >CALCULATE EXT EXPONENT 
3s: CLR SUBFLG “INIT SUBTRACT FLAG 
RTS PC RETURN 
SUBFLG: .WORD 
RELE8: SCOPE 
_ MOV PC,R2 
ADD #i2,R2 
MOV #RELOC PC :GO RELOCATE PROGRAM CODE 


REL88: .WORD 
: 8888888888888 LAST ADDRESS OF CODE TO BE RELOCATED 88888888888 


TST @4KB11E ;1S THIS A KB11-E OR KB11-EM? 
DOMF PT 


BNE j 
DOMFPT JMP ENDCIS =SKIP THIS TEST IF NOT. MFPT AND CIS NOT THERE 
wet h. 6 ame e Emrtnha 
“STEST 74 CHECK MFPT INSTRUCTION (KB11-E/EM ONL 
: THE MFPT INSTRUCTION IS NOT AVAILABLE ON THe KB11-B/C/(M BuT 
;* IF THIS IS A KB11-E/EM THIS TEST IS RUN. MFPT RETURNS 
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-80 11:27 174 CHECK MFPT INSTRUCTION (kKB11-E/EM ONLY) SEQ 0151 


* DATA TO RO IN THE FOLLOWING FORMAT: 

e BIT O = 1 INDICATES 11744 CPU 

e BIT 1 = 1 INDICATES KB11-E/EM CPU (SHOULD ALWAYS COME UP IN THIS TEST) 
e BIT 8 - 1 INDICATES CISP PRESENT 

* BIT 9 = 1 INDICATES FP PRESENT 


“REAR AEARAAAAAARAERARETREREAARAARARAAARAARARARAARARRARAEEREEHRAEEEEE 


7 000001 142640 side MOV #1,STIMES ::DO 1 ITERATION 
7 000074 001252 " MOVB #74. a#STSTNM :LOAD TEST NUMBER 
7? 001252 177570 MOV a*$TSTNM,aa#DISPLAY DISPLAY TEST NUMBER 


-SBTTL START OF SECTION 9 
9999999999999 FIRST ADDRESS TO BE /< e 999999999 


0700 REL9: MOV PC_.RO 
5740 : TST ~(RO) “RO CONTAINS THE ADDRESS OF RELO 
10037 001610 MOV RO, a#FRSTAD : SAVE 
10700 MOV PC,RO “GET CURRENT PC 
036566 SUB #. RO = SUBTRACT RELOCATION FACTOR 
7 001604 MOV RO. a#FACTOR *SAVE RELOCATION FACTOR 
7 001262 MOV PC .@aSLPERR *SET LOOP ADDRESS 
000030 001262 ADD #30, a4SLPERR § : ADJUST 
001262 001260 MOV @FSLPERR, aASLPADR 
001600 iste @ENEXEC :BR IF TEST CODE TO BE EXECUTED 
-* 
003742 JMP RELE9 
3 000002 MOV #2,R3 :R3 IS DATA PATTERN. BIT 1 WILL ALWAYS BE SET 
001555 TSTB =o @WCISP *CISP FOUND? 
0014 BEQ 1$ “BR IF NOT 
05 70 000400 BIS #400,R3 “BIT 8 SHOULD BE SET FOR CISP 
737. 020000 001550 1$: BIT #20000, a#0PT.CP -FP FOUND? 
BEQ 2$ :BR IF NOT 
001000 BIS #1000.R3 :BIT 9 WILL BE SET FOR FP 
2$: MFPT sEXECUTE INSTRUCTION 
CMP RO,R3 >MATCH? 
BEQ 7 : IF SO 
7 001352 MOV R3, avSTMPO >SET UP EXPECTED (GOOD) DATA 
7 001354 MOV RO, aaSTMP1 -SET UP RECIEVED (BAD) DATA 
ERROR 1 >ERROR PRINTOUT 
7 001555 DONE7?: TSTB  aécisP -1S CISP PRESENT? 
2 BNE DOCIS “BR IF IT IS 
7? 003656 ila JMP RELES “SKIP CIS TEST BUT RELOCATE SECTION FOR MFPT 
5 FERRARA REERERRAEAREEREEREREERARAARAKEERARERRRARAARAERAERAERAERRERED 
“TEST 75 COMMERCIAL INSTRUCTION SET TEST 
Fee eee ge eee eee ee ee SARS Rae Pa Pees Seaseenseees 
000004 TST75: SCOPE 
737 000075 001252 MOVB #75,a%STSTNM :LOAD TEST NUMBER 
737. 001252 +«+177570 MOV aWSTeTNM. @#DISPLAY = DISPLAY TEST NUMBER 
3767 001620 002272 MOV @4$LONUM, SAVRNL -SAVE SEED LOW 
3767 001622 002266 MOV @4SHINUM, SAVRNH ;SAVE SEED HIGH 
7 000036 001262 ADD #30. , a#SLPERR ADJUST LOOP ON ERROR POINTER 
:START OF TEST TO MODIFY apsovuté A ADDRESSES WHEN RELOCATING 
737 002252 001620 ~ MOV SAVRNL , a4'$L ONUM :RESTORE SEED LO 
737 002246 001622 MOV SAVRNH . a#'$H NUM “RESTORE SEED HI 


RR 


en ae 
vn ™ 


SS BINS ARANAISSELETRERISSSLFAK 


w 


EE SS. ee ee ee ee ee ee ee eee ee SS ce ee ee el ee eed eed eed eed 


BELESRASLESES 


Sues 


eh el ce a ee ee we ee ee ee ee ee ee ee ee ee ee ed ed nd et st ed dad aad 
ee ee me a ee ee ee ed etd od od od = 
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J 12 
PDP 11/70 CPU EXERCISER MACY11 30A(1052) 12=MAR=80 11:30 PAGE 47-127 
P11 12=MAR-80 11:27 175 COMMERCIAL INSTRUCTION SET TEST SEQ 0152 
770 91 700 041332 MOV #OF F TAB, RO :GET OFFSET TO OFFSET T 
774 1604 ADD aeF ACTOR, RO “ADD FACTOR TO GET ADDRESS OF TABLE 
12001 1$: MOV (RO)+,R1 “GET OFFSET OF STRING 
9 1407 BEQ 3$ IF OFFSET = 0 
1010 MOV R1.R : 1 
702 001604 ADD avF ACTOR,R2 “ADD FACTOR TO OFFSET 
1111 MOV (R1), (R25 : IGINAL DATA TO ADDRESS 
14 06571 001604 ADD a#FACTOR, (R2) “ADD FACTOR FOR ADDRESS 
76 BR 1$ : *GO MODIFY NEXT ADDRESS 
>SET PASS COUNT AND GeT RANDOM DATA 
2 916700 002302 3s: MOV BUF FAD RO :SET SRC ADDRES FOR DATA 
16701 00 76 MOV BUFFAD.R1 =SET DST ADDRESS FOR DATA 
962701 10 ADD #200. ,R1 * ADJUST 
004737 060562 4$: JSR PC, a¥$RAND “GET RANDOM NUMBER 
0 1 710 1620 MOV ONUM , (RO) =STORE NUMBER IN SOURCE ONE 
710 100200 BIC #100200, (RO) “MAKE NUMBER BETWEEN 0 AND 177 
: 12021 MOV (RO) +, (R1)+4 [STORE NUMBER IN DST FOR TEST CMPC 
020067 002164 CMP RO,DST.1A “DONE FILLING SOURCE ONE YET 
0 BLT 4$ T RANDOM R 


;NO GET NEX 

:YES GO TO FIRST TEST 
:TEST CMPC INSTRUCTION COMPARE SRC _1 TO SRC 1 

JSR PC,SETUP : 


g 
g 
= 
3 
; 





8 7 : ° ;SET UP DESCRIPTORS 
076144 CMPC I ; COMPARE STRINGS 
8 70 041236 SRC1: .WORD SRC.1D ; SOURCE ONE DESCRIPTOR 
041242 DST1: .WORD DST.1D :DST DESCRIPTOR 
0 A 0 -WORD ° sFILL WITH SPACES 
037076 001403 BEQ MOVE ;NO ERROR GO TO NEXT TEST 
037100 004767 001602 JSR PC.CISER ;GET ERROR DATA 
037104 104020 ERROR 20 ;REPORT ERROR 
sMOVE CHAR STRING 
$5198 767 001534 MOVE: JSR PC, SETUP :SET STRING DESCRIPTORS 
711 76067 L3D7 ;LOAD DESC INTO REG 
7114 a 36 SRC2:  .WORD SRC.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES | 
711 1242 DST2: .WORD DST.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
71 1 CHARI: . CHAR 
7122 C sMOVE STRING 
7124 076144 CMPCI ; COMPARE SRC AND DST 
71 1 SRC3: .WORD SRC.1D :THIS LOCATION MODIFIED WHEN TEST RELOCATES 
71 1242 DST3: .WORD DST.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
0 -WORD. '° sFILL WITH SPACES 
71 Hee BEQ SCAN :1F EQUAL NEXT TEST 
0371 767 001544 JSR PC,,CISER :GET ERROR DATA 
037142 104020 ERROR 20 :RE 
; SCAN ,MOVC 
7144 004767 001476 SCAN: JSR PC,SETUP ;SET UP DESCRIPTORS 
7150 112767 000001 002124 MOVB #1,SET.1D 7SET CHAR MASK FOR SPAN AND SCAN 
7156 076142 NXSCAN: SCANCI : SCAN 
7160 SRC4: .WORD SRC.1D ; SOURCE DESC 
7162 SETI: .WORD SET.1D ;PTR TO CHAR SET DESC 
7164 1 BNE FNDSCN ; CHAR FOUND MOVE STRING 
a198 1 ? 002110 ASLB SET.1D s;NOT FOUND SHIFT MASK 
71 1 BR NXSCAN ;LOOK AGAIN 
037174 010067 002036 FNDSCN: MOV RO,SRC.1D s;MOV NEW ADDRESS TO DESC 
037, 010167 002034 MOV R1,SRC.1A :MOV NEW LENGTH TO DESC 
e 7 0761 MOVCI sMOV TEXT STARTING WITH CHAR FOUND 
37 041236 SRC5 -WORD SRC.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 





“| 
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19 1 42 DST4: .WORD DST.1D : THIS LOCATION MODIFIED WHEN TEST RELOCATES 
1 "WORD “FILL WITH SPACES 
14 144 CMPC I ‘COMPARE SRC AND DST 
1 SRC6: .WORD  SRC.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
124 DST5: .WORD DST.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
"WORD “FILL WITH SPACES 
140 BEQ SPAN ‘STRINGS EQUAL NEXT TEST 


767 001454 PC,CISER ;NOT EQUAL GET ERROR DATA 
20 RROR 


RROR ;REPORT E 
:SPAN AND MOVC 


% 767 001406 SPAN: JSR PC,SETUP SETUP DESC 
12767 000001 002034 MOV #1,SET.1D ;SET MASK 


DWONAUL WO 


ee ed ee ed ed etd ed 






:DUMMY DESC TO GET SET.1D TOR 
:THIS LOCATION MODIFIED WHEN TEST RELOCATES 


wn 


07 : ;LOAD DESC 
1 SRC7: .WORD SRC.1D : THIS LOCATION MODIFIED WHEN a RELOCATES 
124 . WORD T.1D 
T.1D 
7 
1 


? 02014 ASL 
BR 


NXSPAN 
001742 FNDSPN: MOV RO.SRC. 
001740 R1,SRC. 


LOAD DESC 
SRC.1D : THIS LOCATION MODIFIED WHEN TEST RELOCATES 
oa STHIS LOCATION MODIFIED WHEN TEST RELOCATES 


:MOVE STING BEGINNING WITH CHAR 
; DESC 


el 
D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
D STHIS LOCATION MODIFIED WHEN TEST RELOCATES 
; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
ARE SRC AND DST 


MATCH , ® STRINGS EQUAL NEXT TEST 
PC,CISER :NOT EQUAL GET ERROR DATA 

ERROR 20 ;REPORT ERROR 
;MATCH AND MOVE REVERSE 
767 001306 MATCH: JSR PC,SETUP SET UP C 
oe L2D7 LOAD DESC a REGISTERS 

0412 SRC10: .WORD SRC.1D ; SOURCE NTER 
OBJ1: WORD OBJ.1D ; 


076045 MATC 
767 000031 001654 


SRC.1 
DST.1 
CHAR 


001354 


DONOR 


oooo [ole lelelel ool el ole) eo) o) oo) eo) ela) «lel ole ==) Ss. 
SSSURRRUURRR YOO 
Pecborgbanoecesest 

2% 2h 
ao Sve 
—2 . ee 2 
ES SeRRRE ESSERE CME 
So ‘ 
zw 
$3 


Rapes ge SRC. 1D 

1 : WORD SRC.1D -THIS LOCATION MODIFIED WHEN TEST RELOCATES 

041 46 DST9: .WORD OBJ.1D ;THIS LOCATION MODIFIED WHEN TEST RELOCATES 

1 : IWORD CHAR “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
>COMPARE RESULTS 


076044 
001403 BEQ MOVER ; FOUND eH TEST 


a a ss a sd eed a i Be ed ed ed ot 0 ed os =» 2 
Ww 
UWsFWwho— 


58 004767 001504 JSR PC,CISER SERROR DATA 
9 937408 104020 ERROR 20 :REPORT ERROR 
sMOVE REVERSE 
1 lose. 004767 001236 MOVER: JSR PC .SETUP ;SET UP UEae- 
m3 076131 MOVRC I :MOVE REVERS 
265 037412 041236 SRC12: .WORD SRC.1D ;THIS LOCATION MODIFIED WHEN TEST RELOCATES 


RR 


Ww 


PARIS 


5, 


5} 0d Co 00 0 02 00 G 


ee ee re ee ee a el a et me a ee eh ee ee ee ed ed ed ed et = st =) 
a me ds ee a dd ed ed ot =F 0 a et = 8 
she, © 
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7614 06126 DST10: .WORD ODST.1D :THIS LOCATION MODIFIED WHEN TEST RELOCATES 
1 "WORD “FILL WITH SPACES 
74 {3D7 “LOAD DESCRIPTORS 
4 1 42 DST11: .WORD DST.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6 1 42 DST12 - WORD DST. 1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7%, 76031 C :MOVE REVERSE AGAIN 
7% 76067 het “LOAD DESC FORCOMPARE 
0 74, 1 SRC13: .WORD SRC.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
74% 041262 DST13 ST.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
0 ' “FILL WITH SPACES 
442 076044 CMPC “COMPARE STRINGS 
Pak 001403 BEQ MOVT “EQUAL NEXT TEST 
446 004767 001234 JSR PC,CISER “GET ERROR DATA 
452 104020 20 “REPORT E 
=MOVE TRANSLATE 
037454 004767 001166 MOVT: JSR PC, SETUP :SET UP DESC 
0 460 076132 MOVTCI “MOVE TRANSLATE 
7 041236 SRC14: . “SRC DESC PTR 
464 041242 DST14: .WORD DST.1D “DEST DESC PTR 
7466 0 “ WORD “FILL WITH SPACES 
7670 040776 TRANS1: .WORD TRANS “ TRANSLATE TABLE ADDRESS 
472 076132 MOVTCI : TRANS N 
474 041 42 DST15: .WORD  DST.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
037476 041242 DST16: .WORD DST.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
0 7300 000040 “WORD “FILL WITH SPACES 
040776 TRANS2: .WORD TRANS “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7504 076144 CMPC] “COMPARE SRC AND DST 
7506 041236 SRC15: .WORD  SRC.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7510 041 42 DST17: .WORD DST.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
0 2312 “ WORD “FILL WITH SPACES 
0 14 001403 BEQ LOCATE “STRINGS EQUAL NEXT TST 
7516 004767 001164 ERRG: JSR PC, CISER “GET ERROR DATA 
037522 104020 ERROR 20 *REPORT 
“LOCATE AND MOVE CHARACTER 
37524 004767 001116 LOCATE: JSR PC, SETUP :SETUP DESCIPTORS 
? 076140 NXLOC: LOCCI “LOCATE CHARACTER 
7 236 SRC16: .WORD SRC.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
et LOCCHR: .WORD '‘ 
336 1003 BNE FNDLOC :FOUND MOVE STRI 
105267 177770 INCB _—LOCCHR [NOT FOUND INC CHAR FOR SEARCH 
1 BR NXLOC “LOOK AGAIN FOR NEW 
7546 01 001464 FNDLOC: MOV RO,SRC.1D “ADDRESS OF CHAR FOUND TO SCR.1 
52 101 4 462 MOV R1°SRC.1A “LENGTH OF STRING 
16703 001462 MOV DST. 1A,R3 “MOVE DST ADDRESS TO R2 
16702 001454 MOV DST.1D.R2 “MOVE STRING LENGTH TO R3 
1 MOV #* CRG “FILL CHAR 
5 760 MOVC “MOVE STRING BEGINING WITH CHAR FOUND 
076144 CMPC I “COMPARE SOURCE AND DEST 
76 041236 SRC17: .WORD  SRC.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
041242 DST18: :WORD DST.1D “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7 0 | "WORD ' “FILL WITH SPACES 
7604 001403 . BE SKIP “STRINGS EQUAL NEXT TEST 
037606 767 001074 JSR PC, CISER “NOT EQUAL ERROR 
037612 104020 ERROR 20 “REPORT ERROR 


;SKIP AND MOVE CHAR STRING 
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COMMERCIAL INSTRUCTION SET TEST 


SKIP: JSR PC, SETUP 
NXSKIP: SKPCI 
SRC18: .WORD  SRC.1D 
SKPCHR: WORD ° 
BNE FNDSKP 
INC SKPCHR 
BR NXSKIP 
FNDSKP: MOV RO,SRC.1D 
MOV 1,SRC.1 
MOVC] 
SRC19: .WORD  SRC.1D 
DST19: .WORD DST.1D 
“ WORD 
L307 
SRC “WORD  SRC.1D 
DST20: .WORD DST.1D 
HARS: .WORD CHAR 
CMPC 
BEQ DECDAT 
JSR PC,CISER 
ERROR 2 
= DECIMAL ARITHMETIC TESTS 
“SETUP DECIMAL DAT 
DECDAT: MOV BUFFAD, 
MOV BUFFAD.R5 
ADD #56. RS 
1$: CLR 2 
MOV WASKTAB, 
ADD a4FACTOR,R3 
(RO) ,R1 
CLR R4 
2$: BIC (R3)+,R1 
CMP (R3)+,R1 
BGE 3$ 
SUB (R3) .R1 
3$: TST (R3)+ 
BIS R1,R2 
INC R4 
CMP #4 RG 
BGE 2$ 
MOV R2. (RO) + 
CMP R5,RO 
BHIS  1$ 
MOV #A.DSC,R1 
ADD ACT 
MOV DSC Re 
ADD a#FACTOR,R2 
4$: BIC #070000, (R1) 
BIS #10000, (R1) 
ADD #4,R) 
CMP R1,R2 
BLO 4$ 
> TEST COMPARE NUMERIC 
CMPNI 
Al: “WORD A.DSC 
A2: .WORD A.DSC 


SEQ 0155 
:SETUP DESCRIPTORS 
=THIS LOCATION MODIFIED WHEN TEST RELOCATES 


:CHAR FOUND GO MOVE STRING 
“NOT FOUND INC CHAR 

“GET NEW SRC ADDRESS 

NEW SOURCE LENGTH 


TRING 
:THIS LOCATION MODIFIED WHEN TEST RELOCATES 
THIS ATI IFIED WHEN TEST RELOCATES 
sFILL WITH SPACES 
sl SCIPTORS FOR COMPARE 
; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
: THIS LOCATION MODIFIED WHEN TEST RELOCATES 
: COMPARE STRINGS 
sEQUAL NEXT TEST 
;NOT EQUAL GET ERROR DATA 
;REPORT ERROR 


;GET BUFFAD TO RO FOR INDEX 


:CLR Re TO ACCUMULATE NIBBLES 
:GET OFFSET OF MSKTAB 
a oe 


a 
CLR FOR COUNT 

“1S NIBBLE LESS THAN 9 
“YES DONT SUBTRACT 


NO DO AGA 
;STORE VALID DATA IN SOURCE 


:NO DO AGAIN 
:SET DATA TYPE 
ADD FACTOR | FOR ADDRESS 
T OFFSET OF D.DSC 
s ADJUST oO GET ADDRESS 
; CLEAR re BITS 


GNED ZONED DATA 
GET a DATA TYPE SPECIFIER 
TEST FOR DONE 
“NOT DONE DO AGAIN 


: COMPARE EQUAL STRI 
:THIS LOCATION MODIF 
:THIS LOCATION MODIF 


LOCATES 


S 
ED WHEN TEST RE 
ED WHEN TEST RELOCATES 


oe 


RR 


— 
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PAGE 47-131 
COMMERCIAL INSTRUCTION SET TEST 


BEQ NUMR IC 
JSR PC.CISERS 


ERROR 
CALCULATE (€(10A+108)-10C) 


: ASHN 


«WORD A.DSC 
-WORD D.DSC 
-WORD 1 
ASHNI 

-WORD 8.DSC 
«WORD €E.DSC 
-WORD 1 
ADDNI 

-WORD 0D.DSC 
-WORD €E.DSC 
«WORD F.DSC 
ASHNI 

-WORD C.DSC 
-WORD D.DSC 
.WORD 1 
SUBNI 

-WORD D.DSC 
~WORD F.DSC 
«WORD €E.DSC 
;CALCULATE 10*((A-C)+B) 
L3D7 

-WORD A.DSC 
-WORD C.DSC 
~WORD F.DSC 
SUBN 

L3D7 

-WORD 8.DSC 
-WORD F. 
«WORD D.DSC 
ADDN 

L3D7 

-WORD OD.DSC 
«WORD F.DSC 
-WORD ONE 
ASHN 

+ so RESULTS 
L2D7 

-WORD €.DSC 
-WORD F.DSC 
CMPN 

BEQ CONNUM 
JSR PC.CISER2 
ERROR 


;CONVERT DATA TYPES 
ONG -> NUMER 


sk > -> LONG 
sNUMERIC => PACKED -> NUMERIC 
: CVTLNI 


sEQUAL NEXT TEST 
;GET ERROR DATA 
;REPORT ERROR 
sSHIFT A 
;THIS LOCATION MODIFIED WHEN 
sTHIS LOCATION MODIFIED WHEN 
sSHIFT COUNT 
;SHIFT B 
s THIS LOCATION MODIFIED WHEN 
s;THIS LOCATION MODIFIED WHEN 
: SHIFT COUNT 

:10A+108 

s THIS LOCATION MODIFIED WHEN 
3; THIS LOCATION MODIFIED WHEN 
awe MODIFIED WHEN 
s THIS LOCATION MODIFIED WHEN 
; THIS LOCATION MODIFIED WHEN 
3 T COUNT 

10A+108-10C 

; THIS LOCATION MOD D WHEN 


sLOAD D 
THIS LOCATION 
THIS LOCATION 


sMULT BY 10 


IFIE 
IFIED WHEN 


sLOAD DESC 

THIS LOCATION MODI 
; THIS LOCATION MODI 
; COMPARE STRINGS 
sNEXT TEST IF EQUAL 
;GET ERROR DATA 
;REPORT ERROR 


nh 


; CONVERT LONG TO NUME 
;THIS LOCATI 
sTHIS LOCATI 
: CONVERT NUME 


22 
ae 


SEQ 0156 


TEST RELOCATES 
TEST RELOCATES 


TEST 
TEST 


TEST 
TEST 


RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 


T RELOCATES 


RELOCATES 
RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 
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SEQ 0157 
CEQKCE.P11 12 COMMERCIAL INSTRUCTION SET TEST a 
WORD ATION MODIFIED WHEN TEST REL 
112 i tbs: WORD Eg +5 ‘Tuts LOCATION MODIFIED WHEN TEST RELOCATES 
112 001076 001100 CMP CONG. 1,LONG.2 : CHECK of irst atl #LONG WORD 
eee 1¢ Se nd “EQUAL CHECK SECOND HALF 
116 4 026767 001070 001072 CHP LONG. 1+2,LONG.2+2 ie CHECK SEC 
114 4 $09 000474 1$: JSR PC, CISER1 GET ERROR DATA 
14420 =CONVERT NUM TO PACK TO NUM ‘siaeeiinen cbit'aa: asain 
11463 eres AS: ~ A.DSC THIS LOCATION MODIFIED WHEN TEST REL CATES 
11408 1 E6: : E.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11404 QcGo09 7et8e evTeM COVERT BACK TOM mec ocates 
11446 oh EG: ‘WORD «EDS TS LOCATION MODIFIED WHEN TEST RELOCATES 
M100 or ehes , On ‘THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11028 04 1586 8: “ WORD SDS “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
1145 “WORD 0 * SHIFT COUNT “ 
1431 6 ets CMPN] * COMPARE RESUL ee 
WORD : THIS LOCATION MODIFIED WHEN TEST REL 
11458 041372 #4 “ WORD FDSt THIS Moris WHEN TEST RELOCATES 
BEQ PACDAT 
114 ; $04 767 JSR PC, CISER2 T ERROR DATA 
1145 104090 RROR “REPORT ERROR 
11289 DAT inv 3g gail :SET DATA TYPE 
ie fae fen me ee ee 
11461 12702 041276 DSC, 
11462 10 863505 001604 ADD a#F ACTOR R2 “ADJUST FOR ADDRESS 
, 70000, (R1) :MAKE UNSIGNED PACKED DATA 

11488 ¢ oe ae Or OpoD ee BIS FO60000. (RT) “SET TYPE BITS 
11466 701 000004 ADD #4 Rl “NEXT DATA TYPE SPEC 
11 1 CMe R1,R :DONE Y ET in 
1 191770 000666 000712 Bice HIMASK aA CLR HI NIBBLE To MAKE VALID PACKED STRING 
114 146777 710 BICB HIMASK,a@8 ‘CLR HI NIB OF 8 
114 146777 $2 7 BICB  HIMASK, ; 

FAD, ADDRESS OF BUFF 
11476 018 e 13 000016 BIB LOMASK . 14. (RO) “CLEAR SIGN NIBBLE 
11474 1567 $ 00001 BISB SIGN, 14. (RO) “SET SIGN NIBBLE OF A 
11475 1467 : B1(B . : CLEAR SIGN NIBBLE 
1147 1567 1 3 BISB SIGN, 35. (RO) ET SIGN 
W099 12 1467 12 000057 BICB LOMASK 47. (RO “CLEAR SIGN NIBBLE 
114 3 120786 5 000057 BISB Ee CRO) >SET SIGN 
1055 - TEST cone PACKED paannge or 
£9955 = owed A.DSC :THIS LOCATION MODIFIED WHEN TEST RELOCATES 
1" 1585 As: “WORD  A.DSC = THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11 001401 BEQ PACKED ;EQUAL 60 TEST 
1" 5 tie eCALCULATE 10*( (B+C) J=10*[ (B**2)- “(Ee80) /(B-0)1 
11 040440 076174 PACKED: MULPI it 
eae 040442 041256 B3: .WORD 8.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATE 


or 
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FQKCE.P11 12=MAR-80 11: 175 COMMERCIAL INSTRUCTION SET TEST SEQ 0158 
11 04 356 Bs: .WORD 8.DSC :THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11 1276 E10: k D. ‘THIS LOCATION MODIFIED WHEN TEST RELOCATES 
114 76174 MULP] “MULT  8*B 
11491 1 (3: .WORD C.DSC = THIS LOCATION MODIFIED WHEN TEST RELOCATES 
1149¢ 1 C4: “WORD C.DSC *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
: i495 aE é F9: _WORD E.DSC : THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11495 041 F10: “WORD C.DSC “THIS LOCATICN MODIFIED WHEN TEST RELOCATES 
11496 041 E11: “WORD B.DSC *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
114 1272 E12: “WORD F.DSC = THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11498 1005 BNE NOZERO “BRANCH IF RESULT NOT ZERO 
114 176 ASHP] 
11 1262 C7: .WORD C.DSC 
1 1256 87: “WORD B.DS 
11 1 “WORD 1 
11 4 BR PACKED :DO ANOTHER CALCULATION TO GET RID OF ZERO 
11 076171 NOZERO: SUBPI “SUB A-8 
11 0412 C5: “WORD €.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11 041276 B5: "WORD D.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
1 041266 F11 - WORD E.DSC *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11 0415 % D8: “WORD 0D.DSC :THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11510 041 E14: “WORD £E.DSC *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11511 041316 ONE .WORD ONE “SHIFT COUNT 
1151 076175 DIVPI “DIVIDE E/F 
1151 041272 F12: -WORD F.DSC *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11514 041 E13: “WORD €.DSC ‘THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11515 041276 D7: “WORD  0.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11516 076076 ASHP “SHIFT 10*SCRTCH 
1151 :CALCULATE 10*(A+B) REGISTER MODE 
11518 0536 076067 L3p7 =LOAD DESCRIPTORS 
1151 540 041256 B6: “WORD B.DSC >THIS LOCATION MODIFIED WHEN TEST RELOCATES 
115 542 O41 62 C6: “WORD C.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11521 040544 041276 D9: “WORD D.DSC *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
115 ; 076070 ADDP “ADD A+B 
115 5 07 7 L307 “LOAD DESCRIPTORS 
115 552 041276 010 “WORD  D.DSC *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11525 040554 041272 F13 “WORD F.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11 940556 041316 2: WORD 
11527 076076 ASHP :SHIFT 10*SCRTCH 
115 : COMPARE RESULTS 
11 076172 MPP] sE=F 2222 
115 266 E15 -WORD €.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
115 1272 F14 “WORD  F.DSC >THIS LOCATION MODIFIED WHEN TEST RELOCATES 
115 1403 BEOQ CONPAK 
115 57 767 000110 JSR PC, CISER :GET ERROR DATA 
115 576 104020 ERROR 20 “REPORT ERROR 
115 :CONVERT DATA TYPES 
115 :LONG => PACKED => LONG 
115 “LONG => NUMERIC => NUMERIC 
115 04 076177 CONPAK: CVTLPI = CONVERT LONG TO PACKED 
115 041266 E16: “WORD €.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11540 041 LONG2: .WORD  LONG.1 “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11541 076173 CVTPLI “CONVERT PACKED TO LONG 
11548 040610 041 E17: -WORD €.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
11543 040612 041312 LONG3: .WORD  LONG.2 “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
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12 1:27 175 COMMERCIAL INSTRUCTION SET TEST SEQ 0159 


CEQKCE P17 
i 4 1 1082 000466 000470 cw LONG. 1.LONG.2 : COMPARE RESULTS 
4 6767 000460 000462 Ow LONG. 1#2,LONG.2+¢2 : COMPARE RESULTS OF SECOND WORD 
1 7 ; 000064 1$: JSR PC, CISER1 :GET PC,ERROR DATA 
11 1 ERROR “REPORT ERROR 
4 20 000167 001724 DONE: JMP RELE9 -GO ON TO NEXT TEST 
1 3¢ : SUBROUT INE=SE TUP 
113 “SETS UP CHAR STRING DESCRIPTORS 
4. : ie : JSR PC,SETUP 
18 040646 012767 000310 362 SETUP: MOV #200. ,SRC.1D :SET SOURCE LENGTH 
115 54 016767 000450 000356 MOV FAD, SRC.1A :SET SOURCE ADDRESS 
113 01 767 000310 000352 MOV #200. ,DST.1D “DEST LENGTH 
1 16767 000434 000346 MOV BUFFAD,DST.1A =DEST ADDRESS 
11 76 767 000310 000340 ADD #200. ,DST.1A “ADJUST FOR DST 
11561 207 RTS PC *RE TURN 
1 : SUBROUTINES-CISER, CISER1, CISER2 AND CISER3 
1156 =GETS SHOULD AND WAS DATA AND ADDRESSES 
11364 “USAGE: J PC, CISER(X) 

11565 =NO ARGUMENTS 
11366 706 016737 000326 001352 CISER: MOV SRC. 1A, aa$TMPO : SHOULD BE ADDRESS 
1156 714 016737 000324 001354 MOV DST. 1A,ae$TMP1 “WAS ADDRESS 
11 722 7 RTS PC :RETURN 
11 4 016737 000356 001352 CISER1: MOV LONG. 1P ,a#$TMPO :SHOULD BE ADDRESS 
11 16737 000354 001354 MO LONG. 2P ,a#$TMP1 “WAS ADDRESS 
11571 7 RTS PC “RET 
11378 74 O16 7 000322 001352 CISER2: MOV E, a#STMPO :SHOULD BE ADDRESS 
115 16737 000320 001354 MOV F aeSTMP) WAS ss 
11574 7 RTS PC :RET 
11575 7 16737 000270 001352 CISER3: MOV A, a#$TMPO -SHOULD BE ADDRESS 
11376 766 016737 000262 001354 MOV A, a4$STMP1 “WAS ES 
113 0774 207 RTS C sRET 
11999 : TRANSLATE TABLE 
115 “USED BY MOVE TRANSLATE 
11581 “USED BY SPAN AND SCAN INSTRUCTIONS 
1 -128 CHAR ASCII 
113B2 0776 177 176 175 TRANS: .BYTE  177,176,175,174,173,172,171,170 
(a 
11585 041 167 166 165 .BYTE  167,166,165,164, 163, 162,161, 160 
— le | CU 
11586 Sore 157 156 155 -BYTE 157,156,155,154,153,152,151,150 
1021 154 153 152 
1024 151 150 
11587 041 147 146 145 -BYTE = 147, 146,145,144, 143, 142,141,140 
041037 144 143 142 
041 141 140 
11588 041 137 136 135 -BYTE 137,136,135,134,133,132,131,130 
041041 134 133 132 
1044 131 130 
11589 041046 127 126 125 -BYTE =: 127, 126, 125,124,123, 122,121,120 
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;FOR MAKING VALID DECIMAL DATA 
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11:30 PAGE 47 
COMMERCIAL INSTRUCTION SET TEST 


BYTE 
-BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
:MASK TABLES 
MSKTAB: .WORD 
. WORD 
. WORD 
. WORD 
NINTAB: .WORD 
. WORD 
. WORD 
. WORD 
SIXTAB: .WORD 
. WORD 
. WORD 
. WORD 
HIMASK: .BYTE 
SIGN: -BYTE 
LOMASK: .BYTE 
EVEN 
SA : WORD 
SAVRNH: .WORD 


; CHARACTER STRING DESCRIPTOR TABLE 


“ Pegg E zn 


117,116,115,114,113,112,111,110 
107,106,105,104,103,102,101,100 
077,076,075,074,073,072,071.070 
067 ,066 065 ,064 063,062,061 ,060 
057,056,055 ,054,053,052,051,050 
047,046,045 ,044 043,042,041 ,040 
037,036,035 034 ,033,052,051 030 
027,026,025 024 ,023,022.021,020 
017,016,015,014,015,012,011.010 


007,006 ,005 ,004 ,005,002,001 ,000 


177760 
17 
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177417 
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SEQ 0160 
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P11 1 Do MAR-8O ino? T75 COMMERCIAL INSTRUCTION SET TEST SEQ 0161 

1 SRC.1D: .WORD 200. 

1 SRC.1 -WORD BUFF 

1 DST.1D: .WORD 200. 

1 DST.1A: .WORD = 

1 0BJ.1D: .WORD . 

12 OBJ.1A: .WORD BUFF+5O. 

1 A.DSC: .WORD 28. 

1 A: -WORD BUFF 

1 B.DSC -WORD 14. 

126 B: -WORD BUFF+28 

1 . C.DSC . WORD 10. 

126 C: . WORD — 

1 ws E.DSC . WORD - 

1 : - WORD _— 

1 F.DSC: .WORD 1. 

1 : . WORD F+88. 

1 D.DSC . WORD 1 

15 ; -WORD BUFF+120 

1 SET.1D: .WORD 1 

1 TRANSS: .WORD TRANS 

135 LONG.1: .WORD 528.,0 

1 LONG.2: .BLKW 2 

1 ONE : -WORD 1 

1 CHAR: .WORD ' 

1 TRANS3: .WORD TRANS 

1 LONGIP: .WORD LONG.1 

1 L -WORD LONG.2 
041 BUFFAD: .WORD BUFF 





;OFFTAB CONTAINS ALL ABSOLUTE ADDRESSES 10 BE MODIFIED WHEN RELOCATING 


041 7070 037114 037126 OFFTAB: .WORD SRC1,SRC2,SRC3,SRC4,SRC5,SRC6,SRC7,SRC8,SRC9,SRC10 
1 71 £408 OeeSie 
} 7s 7302 037314 
1 36 7 7412 037434 -WORD SRC11,SRC12,SRC13,SRC14,SRC15,.SRC16,SRC17,SRC18,SRC19,SRC2O 
041 7 e238 037532 
17 o 7622 037650 
1 7116 037130 -WORD DST1,DST2,DST3.DST4,DST5.DST6,DST7,DST8.DST9,DST10 
141 721 ree 037252 
ese ore 037316 03 
O4 1486 ones 037424 037436 .WORD DST11,0ST12,DST13,DST14,DST15,DST16,DST17,DST18,DST19,DST20 
14 7 8 7474 037476 
My rose 37600 037652 
14 74 037308 041322 .WORD TRANS1,TRANS2, TRANS3,0BJ1,SET1,SET2 
1 7344 0371 Oa 63° 
1 0 att 037306 0373520 WORD  CHAR1,CHAR2,CHARS, CHARS, CHARS 
041474 73 037 
Oe lene 0400 040044 WORD A1,A2,A3,A4,A5,A6,A7,A8 
bey 114 02 040250 
1514 0430 04 
041520 040054 040126 040442 .WORD 61,82,83,84,85,86,B7 
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138i 040510 040540 
116 940452 .WORD (1,€2,C3.04.C5.C€6.C7 
1552 
1 76 -WORD D1,D2.03.D4.D5.D6,D7,08,D9,D10 
1 0401 040140 
137 040516 04 
1 04 040110 LWORD = E1,£2,€3.€4.£5.£6,€7.E8,£9,E10 
1 172 040 
16 025 
¢ 040466 040530 ,WORD £11,€12,€13,€14,£15,€16,€17.£18 
et $1036 
1644 104 040120 .WORD F1,F2,F3,F4,F5.F6,F7,F8,F9,F10 
04165 040142 040154 
a 0 045 
1670 12 040526 040554 -WORD F11.F12.F13.F14 
1700 1 041 464 041250 .WORD SRC.1A,DST.1A,0BJ.1A 
1 1254 041 041 .WORD A,B,C,D,E.F .BUFFAD, TRANS 
1714 061 041 041274 
041722 041 041 
17 1 041312 040174 .WORD LONG. 1P,LONG.2P,LONG1,LONG2,LONG3,LONG4 
041 040604 040612 040202 
041742 040144 040556 040522 .WORD ONE1,ONE2,ONE3 
041750 000000 “WORD 0 : TABLE TERMINATER 
:BUFFER SPACE 
=200 WORDS LONG 
“USED FOR SOURCE AND DESTINATIONS 
041752 000310 BUFF:  .BLKW 200. 
04 572 RELE9: SCOPE 
574 1 MOV PC.R2 
76 702 000012 ADD #12,R2 
012707 044042 #RELOC .PC :GO RELOCATE PROGRAM CODE 
000000 REL9O: 
rEL99: ORDO LAST ADDRESS OF CODE TO BE RELOCATED 99999999999 
042610 ENDCIS: 
FERRARA AAAAAEARERAARAAEEEEEKEEAKRARERERERAARAAAERAARERARAERERRR ERED EES 
“TEST 76 TELETYPE AND CLOCK TESTS 
FLERE ERERREREERARERARERERREARARAERAEERRERRERARERAARERR ER ERE RES 
042610 000240 TST76: NOP 
1 Me 7 000076 001252 MOVB #76, a#$TSTNM :LOAD TEST NUMBER 
013737 001252 17757 MOV av$TSTNM, a4DISPLAY > :DISPLAY TEST NUMBER 
005 7 001604 TTYCHK: CLR avF ACTOR 
12 000100 MOV #100,R4 -SET RG = CONSTANT 100 
042636 032737 000400 001550 BIT ATTOPT, a#OPT.CP :BRANCH IF TTY 
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SEQ 0162 


| H 13 ee ee 
“£ PDP 11/70 CPU EXERC IER MACYTT 30A(1052) | - 2 omAR-80 11:30 PAGE 47-138 
12=MAR=-80 11:27 176 


on 
me 


ETYPE AND CLOCK TESTS SEQ 0163 
Sates BO ay 6 len Ro 
04 1 2077 90030 136434 18: ao 3 asTPs :CHECK IF TTY IS READY 
12 ? bgt 001340 MOV ANULLS=1 -@4SREGS; SET ADDRESS OF ait STRING TO TYPE 
S880 136420 ASRB aSTPS SET IE BIT. SEE TPISR FOR INT SERVICE. 
74 1 WAIT ;WAIT FOR INTERRUPT 


DUMMY : 
;ROUTINE TO CHECK PRIORITY ARBITRATION LOGIC 
:THE BELOW TEST WILL INHIBIT INTERRUPTS ON LEVEL 6 AND ABOVE (LOCKING 


SSSLELESELEG 





7A CLOCK INTERRUPT WILL OCCUR (8$) AND LOC 4$ WILL BE INCREMENTED 
sAFTER THE CLOCK SERVICE A TTY INTERRUPT WILL OCCUR. THE TTY INT SERV 
ZICE WILL SHIFT LEFT 4$. 


Sade 


11 
11 
1 
11 
1 
11 
11 
11 
11 
11 
1" 
11701 :OUT THE LINE CLOCK) AND THEN SET UP THE TTY TO INTERRUPT. NEXT THE 
11708 “PRIORITY LEVEL WILL BE SET TO 0 ALLOWING INTERRUPTS IN WHICH CASE 
1170 “THE LINE CLOCK (AT LEVEL 6) SHOULD INTERRUPT BEFORE THE TTY (AT LEVEL 4). 
11706 132737 000020 177776 i$: BITB #20, aaPSW 
11705 001104 BNE ARBE X EXIT TEST IF 'T' BIT SET 
11708 030477 136402 2$: BIT R4,a$TPS WAIT FOR TTY TO BE NOT 
11 001375 BNE “BUSY 
11708 112737 000300 177776 MOVB #300. a"PSW SET PRIORITY LEVEL 6 
11 150477 136366 3$: BISB R4,a$TPS -SET IE BIT 
11710 100375 BPL 3s" ‘AND WAIT FOR READY 
11711 732 001000 001550 BIT #LKOPT , a#OPT. CP “LINE CLOCK AVAILABLE? 
1171¢ 1455 BEQ ARBF IN “BRANCH IF NO 
1171 12737 043044 000064 MOV ¥ “SET TTY VECTOR 
11714 012737 000340 000066 MOV wPR? aA TPVEC+2 
11715 012737. 043056 000100 MOV 8S, AALKVEC :SET CLOCK VECTORS 
11716 012737 000340 000102 MOV WPR? @ALKVEC +2 
11717 005027 CLR (PC)+ :CLEAR CHECK WORD 
11718 000000 4$ -WORD 0 
He 
11721 :REV E....BECAUSE OF ATIMING DELAY IN THE LINE CLOCK PORTION OF A DL11-w 
117 é *IT IS OCCASIONALLY POSSIBLE FOR 'READY' TO SET WITHOUT GENERATING AN IN- 
117 > TERRUPT REQUEST ON THE FIRST LINE CLOCK TICK FOLLOWING PROGRAM SETTING 
11726 “OF "I.E." REV E WAITS FOR A SECOND CLOCK TICK PRIOR TO EXECUTING TEST. 
" 5 “PRIORITY MANIPULATION WAS ALSO MODIFIED TO LOCK OUT ‘LATE* INTERRUPTS. 
117 
11728 042774 012700 000002 MOV #2,R0 :SET SOB COUNT 
117 010437 177546 S$: MOV RG, @ALKS “SET I.£. AND CLEAR READY 
11 105737 177546 é$: TSTB = @ALKS “SEE IF LINE CLOCK READY 
11731 10 100375 BPL 6$ “LOOP IF NOT 
1 04 12 07 S0B RO,5$ *DO IT ONE MORE TIME 
11 14 000240 NOP -AT THIS TIME BOTH THE CLOCK 
11 ‘ARE READY TO INTERRUPT 
1" 043016 105037 177776 CLRB  aWPSwW “SET PRIORITY LEVEL 0 
1 
" 
11740 04 5022 012737 000340 177776 MOV #PR7. a#PSw :DON'T ALL Ow "LATE’ INTERRUPTS 
11741 043030 022767 000002 177734 CMP #2,6$ “CHECK THAT THE CLOCK 

1174@ 043036 001415 BEQ ARBF IN “& TTY INTERRUPTED IN 

11743 043040 104000 HLT “THE PROPER SEQUENCE 

11744 043042 000413 BR ARBF IN 
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PDP 11/70 0, CPU EXERC] 3 ER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-139 
12 ? 176 TELETYPE AND CLOCK TESTS SEQ 0164 
77 136244 7$: CLR asTPs :CLEAR IE BIT 
7? 177716 ASL 4$ “SHIFT INDICATOR 
RTI *RE TURN 
005267 177710 8$: INC 4$ 
O12 7 054362 000100 MOV #LKSRV, @#LKVEC :SET CLOCK VECTORS 
72 012737 063566 000064 ARBFIN: MOV #TPISR, a@#TPVEC *RESTORE TTY VECTOR 
100 012737 000200 000066 MOV #200, a#TPVEC+2 
106 105037 177776 CLRB  awPSW :RESTORE PROCESSOR PRIORITY 
04 112 005077 136176 CLR a$TPS “CLEAR IE BIT 
3116 ARBEX : 
REAR AAARAERARAEAAAEAREAAAARRARARAARAREARAAAAAEARAREAAREARAREAARARAEAREE 
; TEST 77 TURN ON UBE AND MBT 
: TURN ON THE MASS BUS TESTER AND UNIBUS EXERCISER IF PRESENT 
s obanenneecneagnancncscesteqnececaannecneengeccansserentecansees 
045116 $40 TST77: NOP 
043120 11273 77 001252 MOVB #77, a#$TS :LOAD TEST NUMBER 
04 1 001252 177570 MOV SWSTSTNM. BADISPLAY DISPLAY TEST NUMBER 
134 032737 001550 BIT #LKOPT , A#OPT . CP “BRANCH IF NOT AVAIL 
043142 001411 BEQ UBESET 
043144 012737 054362 000100 MOV #LKSRV , AALKVEC 
043152 012737 000340 000102 MOV #PR7 , @ALKVEC+2 
043160 052737 000100 177546 BIS #100, aALKS :SET IE BIT 
TMA AA XA ta——«_ 8 )6)86=6 00 
TURN ON THE UNIBUS EXERCISER IF PRESENT 
3166 105737 001550 UBESET: TSTB a#OPT.CP 31S UBE OPTION AVAILABLE? 
100015 MBTSET H IF NO 


BPL 
777 ~010000 136042 BIT #SW12 , @SSWRP INHIBIT UBE? 
BNE arte BRANCH IF YES 
000040 172516 BIT 4B 11S ,aAMARS ;1S MAP ON? 
BNE STMM 


7BRANCH IF YES 
062340 JSR PC INIT  <:INITIALIZE UBE 
064545 000000 MOV #64545,a(R2) = START UBE 


» =o 


aECANS 
SSES 
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So 
= 
Nm 
NUN 


5 ERA EERERREREREEERARRAEAEAAKRRAEAAKERERAERAEAREARARRAREEREREERR ES 


= TURN ON THE MASS BUS TESTER IF PRESENT 
032737 002000 001550 MBTSET: BIT WMBTOPT ,a#OPT.CP :1$ MBT AVAILABLE? 
14 BEQ 7m H IF NO 


S ;BRANC 
000010 136000 BIT #SW3,aSSWRP ; INHIBIT MBT? 
BNE TMM sBRANCH IF YES 
#60,@47SUBPASS ;FIRST SUB-PASS? 
STMM BRANCH IF NO 
BNE STM : 
137076 MBT1: BIS 447 ,AMBTTBL+12 :CLEAR THE MBT 
137070 MOV #7, aMBTTBL+12 »SELECT UNIT 7 
7 aMBTTBL +2 :CLEAR THE WORD COUNT 
777 054050 137066 MOV AMBTSRV,AMBTTBL +22 :SETUP INTERRUPT VECTOR 
000340 137062 MOV #PR7, @MBTTBL +24 -SET VECTOR PSW 
112777 000161 137030 MOVB #161, aMBTTBL :START MBT 
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QKCE.P11 12=MAR=80 11: 177 TURN ON UBE AND MBT SEQ 0165 
a FERRARA AAAAAAAAAAAAAAERERARARAAAERERAERERHERERERERRERAR RARER ERS 
1179 -SBTTL STMM ROUTINE 
11798 :ROUTINE TO SET UP MEMORY MANAGEMENT TO RELOCATE PROGRAM CODE ABOVE 16k 
11 -CHECK IF PROGRAM IS TO BE RELOCATED. 
11 :SW6=1=NO RELOCATION 
17 1 FARRAR ARERAAAERARERAAAEEAARERAAAARAAARAERAREREERRERR RARE RA RAE 
1 043326 113737 000100 001252 STMM: MOVB  #100,a#STSTNM  ;:LOAD TEST NUMBER 
11 04 112737 000100 177570 MOVB #100,a4DISPLAY ;IN SWICH REG TOO 
11 sANY TIME TEST 100 IS IN ERROR REPORT 
11 : THEN ERROR OCCURRED DURING RELOCATION 
11 os 032777 000100 135674 BIT #SW6, ASSWRP :RELOCATION DISABLED? 
1 1402 BEQ 33 :BRANCH IF NO 
4 04335 167 002626 JMP ENDM 
11810 THE PROGRAM IS GOING TO RELOCATE. 
11811 *RELOCATION WILL BE PERFORMED IN KERNEL MODE WITH PSW SET AT PRIORITY 
11 12 *LEVEL 4 (TO PREVENT TTY INTERRUPT=-WHICH CHANGES DATA IN PROGRAM) 
1181 -THE ‘T* BIT IS CLEARED (IF SET). AFTER THE DATA HAS BEEN WRITTEN IT IS 
11814 ‘VERIFIED BEFORE EXECUTION. 
11815 043356 013727 177776 3$: MOV arPSw, (PC) + :SAVE CURRENT PSW 
11 16 OLDPSW: .WORD 
1181 012737 000 177776 #PR4 , a#PSW 
" 18 2 004767 017716 JSR PC, CLRTBIT :CO CLEAR 'T' BIT IF SET 
11820 :NOW SETUP MEMORY MANAGEMENT REGISTERS. 
11821 376 O18? 077406 MOV #77406 ,RO -SET CONSTANT=R/W UP 4K WORDS 
11 $3¢ > 9010037 172300 RO, a#kK IPDRO :SET KIPDRO THROUGH 7 R/W UP 4K WORDS 
WBS bcaets O1ObS? 175306 mov 
11825 1 19037 17 306 MOV 
11826 10037 172310 MOV 
1182 10037 172312 MOV 
11828 10037 175316 MOV 
11865 010037 172316 MOV 
118 4 5037 172340 CLR :SET UP KIPDRO THROUGH 3 FOR NO RELOCATION 
118 12737 000200 172342 MOV 
118 54 012737 00 1 oseee MOV 
1183 12737 172346 MOV 
1183 13737 1616 172350 MOV ARG :PAR4 MAPS TO BEGINNING OF RELOCATION SPOT 
11836 13737 172350 172352 MOV ARS 
1183 7 172352 ADD -PARS MAPS TO TOP 4K PAGE (NEXPAR START ADDRESS + 12k) 
11838 12737 177600 172356 MOV 7 :AND OF COUSE THE I/O PAGE 
11839 -NOwW SETUP USER MGMT REGISTERS 
118 100 7 177600 is: MOV arul :SET UP USER MEM MGMT REGS 
118 10037 177602 MOV 
118 10037 177604 MOV 
118 10037 177606 MOV 
118 10037 177616 MOV 
118 16 , 4 6 177640 MOV 
118 13737 177640 177642 MOV @FUIPAR1 
118 737 990200 177642 ADD PAR1 
11848 7 177640 177644 MOV avu @#UIPAR2 
11845 7 000400 177644 ADD #400, @#UIPAR2 
11850 13737 177640 177646 MOV @FUIPARO, AAUIPAR3 
11851 064 062737 177646 ADD #600 , A#UIPARS 
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12=MAR SEQ 0166 
013737 172356 177656 MOV Qk IPAR7 , @#UIPAR7 . 
110037 MOV RO, a#SIPDRO :SET UP SUPERVISOR MEM MGMT REGS 
910037 MOV RO. a#SIPDR 
910037 MOV RO. a#SIPDR 
110037 MOV RO, avs! 

910037 MOV RO, avs! 
916737 172240 MOV NEXPAR , a#'S 1PARO 
13737 172262 MOV a4SIPARO aFSIPARI 
962737 172262 ADD #200, a#SIPAR 
13737 1722646 MOV aS 1PARO SOS TPAR? 
162737 172266 ADD @4SIPAR 
1 172246 MOV @#SIPARO,a#SIPAR3 
162737 17 46 ADD 3000, @ASIPAR3 
01 3737 172256 MOV @#K IPAR7 ,@#SIPAR7 
912737 177572 MOV rt : ENABLE MEM MGMT . 
12737 172516 MOV #60, aASR3 “SETUP SR3 
110637 MOVB SP :SET MEM MGMT ON IND = ON 
05037 RETRY: CLR arERRVEC+ +2 
012737 MOV #ENDMEM. @WERRVEC:SET TIME OUT TRAP VECTOR 
1 4 MOV B4CACHVEC +2. R1 :SAVE CACHVEC PSW 
6618 
12737 000114 MOV rises RSE ACHVEC -SET UP CACHE VECTOR FOR HOLE 
127 MOV :SETUP GENERAL REGISTERS 
01 MOV “DATA WILL BE RELOCATED FROM 
‘ADDRESS IN RO TO ADDRESS IN R2 AFTER MAPPING 
1270 MOV oiniieg: R3 “SELECT PARS + 2k (14K TOTAL REQUIRED) 
1001 MOV RO, (R3) = TRAP TO ENDMEM IF INSUFFICIENT MEMORY 
O12 000004 MOV WERPRT ,@WERRVEC :RESTORE ERROR TRAP VECTOR 
10137 MOV R1, a#CACHVEC+2 
1 (3? 000114 MOV #. PARSRV , @#CACHVEC *RESTORE CAC = VECTOR 
137 JMP av 1OMON 


; adnsanggiaie ea eeeiinathinninaneeticnbinenakesenanberneceses 


** 


Se Be Be Ge Se Be Pe Be Be Be Be 


ee Ve 
a 2 


‘ * SBTTL ie att 


Ro 
EXIT TO Le MONITOR W 


RELOCATION BY AN 
TO THE I/0 MONITOR. 
R WITH: 


ON ROUTINE 
TINE IS wy TO RELOCATE THE 9 SUBTESTS UP TO 28k. 
I/O DEVICE IS SELECTED, CONTROL IS PASSED 


FRSTAD=PHYSICAL ADDRESS OF FIRST CODE 
FACTOR=NUMBER OF BYTES ABOVE BASE CODE 
=LAST PHYSICAL ADDRESS OF THE SECTION 


DBASE=FIRST PHYSICAL ADDRESS TO BE RELOCATED 
NWBASL =FIRST PHYSICAL age TO RELOCATE TO 
1OwC =TWO'S COMPLIMENT WORD COUNT 


SREREKEREAEAKERERKEARAEKEEARERARERARAREARAARAEARAEAARARARERAARARAREREREEES 


jisees 


BIT #SW6, ASSWRP :1S RELOCATION DISABLED? 

BNE EXITRE ‘BRANCH IF YES 

TSTB § @#MMON *1S MEMORY MGMT ON? 

BNE EXI TRE ‘BRANCH IF YES 

MOV QNFRSTAD RO “GET FIRST ADDRESS TO BE RELOCATED 
:LAST ADDRESS IS IN R2 

MOV R2,R3 :SAVE LAST ADDRESS 

MOV R2-RG 

SUB RO.R4 :R4 NOW HAS BYTE COUNT 


i. 


nd etd ed ed 
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RELOCATION ROUTINE 


MOV R4 OFSF ACTOR 

1ST arf AC 

BNE if 

MOV @ARE TPC 

MOV Tt oe Alay R2 
1$: ADD 2,R4 

CMP R4,a@4LSTMEM 

BH! ™ 

SUB R2,R4 

CLR 


;SAVE BYTE COUNT 

sFIRST ae IS TO ENDTAG+2 

3 H IF NOT EXECUTI C 
sSAVE RET PC TO NEXT 

:GET FIRST ADDRESS TO RELOCATE TO 
:R& NOW a aa LAST MEM ADDRESS 
; ENOUGH 

:BRANCH 


IF NO 
;R4 NOW HAS BYTE COUNT 
; INHIBIT RELOC BY I/0 DEVICE? 
> BRANCH E 


IF YES 
SAVE START ADDRESS 
; SAVE NEW BASE ADDRESS 


“MAKE IT A WORD COUNT 
;GET TWO'S COMPLIMENT 


ASR 
NEG R4 
MOV R4, a#10WC :SAVE R4 AS WORDCOUNT 
JMP ENTER2 :GO TO 1/0 MONITOR 
;RELOCATE BY CPU-MEMORY MANAGEMENT OFF 
RELNIO: MOV (RO) +, (R2)+ sRELOCATE CODE 
CMP RO,R3 sDONE YET? 
BNE RELNIO ;BRANCH IF NO 
JSR PC ,@#CHKDAT :GO CHECK DATA 
BVC EXITRE 
MOV RO, a#STMPO ;SAVE RO FOR TYPEOUT 
MOV R2,Q4VADR ; SAVE R 
JSR PC ,@#CNVADR ; CONVERT R2 TO A PHYSICAL ADR 
ERROR 6 
BR NOMEM 
EXITRE: MOV R2,PC ;GO EXECUTE RELOCATED CODE 
NOMEM: MOV (PC) PC :GO TO NEXT SECTION 
RETPC: ° 0 ;CONTAINS PC OF NEXT SECTION 


Gosnnilar en Rareeenat asaeneonasiniihnetrnenenseeneneemmnnneeann 


~SBTTL 1/0 RELOCATION MONITOR 
;* THIS ROUTINE IS USED TO SCHEDULE [/0 e 1/0 DEVICE UNIT 


tos RELOCATION AND PROGRAM RELOCATION. THE 1/0 
tee NUMBER IS DETERMINED, THE BUS ADDRESS CALCULATED, 
se COUNT CALCULATED AND PASSED TO THE DEVICE HANDLER. 
+S RRRRRRERRRERERRERRREREREREREREREERERAREREREREREERAERERE REAR ER ER 
IOMON: MOV #1$,a#SLPERR :SETUP ERROR LOOP 
1$: MOV #0. AOL DBASE 
MOV @4YNEXPAR RS : SETUP R4 AND R5 
CLR R4 ;TO FORM 228 A ADDRESS 
ASHC #6,R4 :FORM 22 BIT ADDRESS 
MOV R5 , @ANWBASL : SAVE COWER 16 BITS 
MOV R4, SH VE UPPER 6 BITS 
BIT SW8 , @SSWRP RELOCATE VIA 1/0? 
BNE :BRANCH UF YES 
JMP Aten ;GO RELOCATE VIA CP 
2$: MOV #174000 ,a#10wC :SET WORD COUNT TO 2k 
ENTER2: CLR TMP2 
MOV #-2 , @ARNTBINX ; SETUP RUN TABLE INDEX 
CLR af#$ TMPO 
CLR R2 :CLEAR LEGAL DEV ar 
41$: BIT #SW5 ,aSSWRP ; INHIBIT ROUND ROBIN? 


SEQ 0167 
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CE.P11 12=MAR-80 11: 1/0 RELOCATION MONITOR SEQ 0168 
964 ; BEQ 50$ :BRANCH IF NO 
5 ¢ 001352 TST av$TMPO “FLAG SET? 
966 BNE 43$ “BRANCH IF YES 
967 ¢ 1 001650 MOVB WRP , ADE VINDX sGET DEVICE FROM SWITCHES 
177770 001650 BIC #177770, @ADEV INDX :MASK LOWER 3 BITS 
901650 ASL EVINOX ‘ADJUST FOR WORD INDEX 
44376 1352 INC TMPO “SET FLAG 
' x BR : CONTINUE 
44402 10 50S: MOV #10.R5 ;SET SOB COUNT 
44406 16 001650 40$: CMP #16. @ADEVINDX “LAST DEVICE YET? 
974 ¢ BNE 42$ “BRANCH IF NO 
975 ¢ 6 177776 001650 48%: MOV #-2,, @AADEVINDX ‘INIT DEVICE INDEX 
976 001650 4e8: ADD #2, @ADEVINDX * INCREMENT INDEX 
977 ¢ 16 43$: MOV @4DEVINDX ,R3 “GET INDEX 
978 01 001354 MOV #401 ,aa$STMP) : INIT UNIT MASK 
10 MOV #10,R4 SET SOB COUNT 
; 1354 001712 44$: E178 QesTMPt .SYSSI7E (RS) 1S THIS UNIT EXISTENT? 





BEQ s KI 
INC R2 “SET LEGAL DEVICE FLAG 
14446¢ 001355 001713 BITB a#STMP1+1,SYSSIZE+1(R3) ;HAS IT BEEN USED? 
BEQ 11$ : H IF NO 
5 ¢ 001354 52$: ASL avSTMP1 -SELECT NEXT UNIT 
‘ 7 S08 R4,44$ . TI 
001352 TST av$TMPO * INHIBIT ROUND ROBIN? 
BNE 45$ “BRANCH IF YES 
SOB R5,40$ : CONT INUE 
TST R2 “ANY DEVICES AT ALL? 
991 04451 BEOQ 46$ ; H IF NO 
pat 514 000010 MOV #10,R4 *SET SOB COUNT 
993 C 001713 MOV #SYSSIZE+1,R1 *GET ADR OF SIZE TABLE 
994 ¢ 3 4 47$:  CLRB  (R1)+ “CLEAR ALL USED BITS 
995 ¢ INC R1 “IN ALL DEVICES 
936 0445 SOB R4.47$ > CONT INUE 
BR 41$ 
238 45$: TST R2 :WAS IT A LEGAL DEVICE? 
BEQ 49% “BRANCH IF NO 
001713 CLRB SYSSIZE+1 (R3) ‘CLEAR ALL USED BITS THIS DEV 
” 
900016 49$: MOV R3,60$ : 
572 000010 ADD #MSGINX ,60$ :GEN MESSAGE ADR 
000004 000002 a60$ ,60$ 
TYPE 
044 60$: . WORD 
4457 044600 TYPE ,65$ :: TYPE ASCIZ STRING 
> § 7 BR 64 ::GET OVER THE ASCIZ 
1) 3:65$: .ASCIZ /UNAVAILABLE/<CRLF> 
1) 16 64$: 
1 BR ENTER2 
001602 46$: TSTB afav sACT11? 
sBRANCH IF YES 


BNE 
177777 pines 4-1 
044642 TYPE ;:TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


BR 66$ ne 
ji6?s: eASCIZ ?NO I/0 DEVICES?<CRLF> 
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1/0 RELOCATION MONITOR 


51$: 


61$: 


11$: 


62$: 
30$: 


10$: 


13$: 


@FRELOCP 
ee 
a¥$TMPO 

11$ 


41$ 
RPSHSTAT(R3) 
62 


62$ 


a15$ 
@#STMP1+1,SYSSIZE+1(R3) 


R 
OASTMP | 
Re 


NX,R 
SPCR ND: RSOALT RS) 
OT eRe SVE 


#PRS ays 
RE SHANA R ) BPRESVEC 
@#0L DBASE ,RP30LD (R353) 


SmMBASH RP Mt et I (R3) 


oe 
#10000 , @4OL DBASE 
#10000 , A#NWBASL 


¢ 


a41$ 
@4LTICKS+1,R5 
#2,R5 


#60. ,R5 


R2, @4UNI TNO 
oo 





~T 


SEQ 0169 


R2 
GET MeL OLAT ION FACTOR 
ORM T ADDRESS 
® SETUP R 
:GO RELOCATE WITH CP 
sSETUP REGISTERS 
“WITH FROM AND TO ADDRESS 
“RELOCATE VIA CP 
:1S HANDLER BUSY? 
“ ROUND ROBIN? 
“BRANCH IF NO 
:DID HANDLER FAIL? 
sBRANCH IF NO 
:ROUND ROBIN 
sBRANCH IF YES 
;SET UNIT USED BIT 


sENCODE THE BIT POSITION 
; INTO A UNIT NUMBER 


7SAVE UNIT NUMBER 
GIVE WORD COUNT TO HANDLER 


“ ENCODE DEVICE FOR RUNTABLE 
sENCODE UNIT NUMBER 


; INCREMENT RUN TABLE INDEX 

:GET RUN TABLE INDEX 

sENTER DEV & UNIT _IN TABLE 
:GIVE HANDLER UNIT NUMBER 
;SETUP RESERVED VECTOR PSwW 
: SETUP RESERVED VECTOR 


JUST INDEX 
[GIVE HANDLER OLD BASE ADDRESS 
:GIVE HANDLER 
;NEW BASE ADDRESS 
;ENSURE OLD BASE HIGH IS CLR 


: 1S MEMORY MANAGEMENT ON? 
“BRANCH | 

“ TRANSFERED 14K YET? 

: H IF YES 

*TO BASE 

“ADDRESSES 

:GET SECOND COUNT 


; INCREMENT BY TWO 
“ENSURE RESULT IS 59 OR LESS 


C 
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1/0 RELOCATION MONITOR 


31$: 


14$: 


32$: 


82$: 


253: 


223: 


83$: 


81$: 


17$: 


16$: 


agS8832 83 SSSRz3 


~ 
aa 


eRaraaae yeas 


BMI 
ADD 


BR 
;R4 NOW CONTAINS INDEX OF 
MOVB RUN 


R4 
ee 
nents 

Af 

RS 

#4000,R3 

QPL TICKS+1 RS 





R5,RO 
av$F ACTOR RO 


@ANUBASL ,RZ 
@4SF ACTOR ,R2 


E 
TBL +1(R4) ,R4 
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RROR FOR RUN 










“COUNT WAS LESS THAN S8-RESTORE 
SET SOB COUNT 


SULT 
: (WITHOUT ROTATE) 
. ? 
;BRANCH IF YES 
; TWO SECONDS ELAPSED YET? 
3 H IF NO 
;DEVICE HUNG 
;RESTART RELOCATION 
ZANY DEVICE ERRORS? 
sBRANCH IF NO 
7MEM MGMT ON? 
sBRANCH IF YES 
;SETUP RS FOR DATA CHECK 


;GET LAST ADDRESS 
:OF GOOD DATA 


;GET LAST ADDRESS 

:OF DATA TO BE CHECKED 

= CONT INUE 

=GET LAST = + 2 OF GOOD DAT 

GET LAST + 2 OF DATA TO BE CHECKED 

=SET UP PARG FOR TOP 4K BANK 

=DON'T CHECK BELOW SERRTB 

=GO CHECK DATA 

;BRANCH IF ERROR 

;ANY ERRORS? 

- BRANCH IF YES 
TURN 

= LOOP ON ERROR? 


BRANCH IF NO 
:GO DO FUNCTION AGAIN 


SAVE ERROR ADDRESS 

21S + fis go * ON? 

; BRANCH 

SUBTRACT. x FROM ERROR ADDRESS 
; BRANCH IF BLOCK IS FOUND 

+ T ONE MORE BLOCK 

‘so ONTI i. 

GET Device THAT FAILED 
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CEQKCE .P11 12 11: 1/0 RELOCATION MONITOR SEQ 0171 











121 0 54 042 177400 BIC #177600.R4 :ENSURE HIGH BYTE CLEAR 
121 ASR R4 > THROW AWAY LSB 

121 04 CLR RS ; ENSURE R5 CLEAR 

121 177775 ASHC #-3,R4 *GET UNIT NUMBER IN RS 

12130 06 1 MOV RS5.RO 

12131 04 177763 ASH #-15_RO 

121 7 177770 BIC #1777 70.80 

121 s 01 001360 MOV RO, a#STMP 

121 5 01 MOV R4,R3 :AND DEVICE INDEX IN R4 & R3 
12135 3 10 01 001356 MOV R3, avSTMP2 

121 14 012737 000001 001354 MOV #1 a4STMP1 sENCODE 3 BIT UNIT NO INTO 
121 2 2 162705 020000 19$: S s ARS :ONE BIT IN THE LOW BYTE OF $TMP1 
121 1 3 BCS 1 “BRANCH IF DONE 

12139 0655 137 001354 ROL aySTMP1 SELECT NEXT UNIT 

12140 0455 BR 19$ 

12141 043356 12737 045660 001262 18$: MOV #20$,QA#SLPERR ‘SeTuP LOOP RETURN 

1 149 5 701 TST R1 “DEVICE ERROR? 

1214 3 1010 100$ *BRANCH IF YES 

12144 550 10401 RROR 10 :DATA CHECK ERROR 

12145 232 105737 001601 TSTB  a@a4MMON “MGMT 

12146 045556 1002 70$ = BRANCH iF YES 

12147 045560 137 044316 71$:  JMP @VENTERZ 

1 148 3364 000137 70$: § JMP av I OMON 

1214 3 1 7 100$: ERROR 7 

12150 572 042763 002006 BIC #B1T15,RP3HSTAT(R3) :CLEAR THE ERROR 

12151 105037 001254 CLRB aASERFLG 

1 13¢ 3 CMP #2,R3 zRKOS ERROR? 

12153 045610 405 BLT 90$ “BRANCH IF RH70 

12154 049612 00301 BGT 92$ -BRANCH IF RPOS 

139 3614 112 000001 134414 MOVE #1, aRKCS “RK CONTROLLER CLEAR 
12157 S08 000012 90$: CMP #12,R3 7RS04? 

1 Fs 1 BNE :BRANCH IF NO 

139 04365 052 000040 134464 BIS ITS, aRSCS2 -CLEAR RS CONTROLLER 

12161 2642 134414 91$: BIS #BITS ,ARP4CS2 :CLEAR RPO4 CONTROLLER 

1 16 56 19 737 001601 92$: TSTB @¥MMON “MGMT 

121 54 BNE BRANCH iF YES 

12164 900 BR 71$ 

12165 9 276 000400 002006 20$: BIS #B1 TB RPSHSTAT(R3) :SET REPEAT FLAG IN HANDLER 
1 166 3666 16337 002136 000010 MOV RPS (R3) ,QWRESVEC §:SETUP RESERVED INSTRUCTION VECTOR 
1216 5674 19 CALLHANDLER 

1 168 7 002006 21$: TST8  RPSHSTAT(R3) :HANDLER F INISHE? 

1 169 5 1 373 BPL 1 =BRANCH IF NO 

121 63 002006 TST RP SHSTAT(R3) “ANY ERROR? 

121 710 100712 BMI 18$ “BRANCH IF YES 

1217, 712 1 TST R1 “DEVICE ERROR? 

121 5714 002 BNE “BRANCH IF YES 

12174 04571 16 177352 JMP 2$+4 *GO CHECK DATA 

12175 : 7 133314 80S: BIT ¥BIT9. aSSwRP :STILL LOOPING? 

1 176 04 1353 BNE ; H IF YES 

12177 045732 000717 BR 100$+2 >CONTINUE TEST 

1 178 - THE FOLLOWING CODE HANDLES DEVICE ERROR ON RELOCATION 

121 045 005 15S: CLR RG :SET INDEX 

12180 045736 010601 MOV SP.R1 

12181 045740 005764 001750 248: TST RUNTRAK (R4) : SEARCH FOR DEVICE ERROR 
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30A(1052) 12-MAR-80 
1/0 RELOCATION MONITOR 
BM! 16$ :BRANCH IF ERROR 
ADD #2,R4 > INCREMENT INDEX 
BR tsiKS :CONTINUE SEARCH 
;RELOCATE & Y MANAGEMENT ON 
LOCP: MO\ RS 4K COUNTER 
: MC. {RO)*. (R2)+ “RELOCATE CODE 
SOs .1$ -BR IF NOT DONE 4k WORDS 
CMP @FKIPARG , a#KIPARS “DONE 16K YET? 
BEO :BR IF DONE 
ADD #200, a#K IPAR4 “MAP TO NEXT 4K SPACE 
MOV #1 R “MAP WITH R2 (PARG) 
CMP @AKIPARS , aaK IPARS “DOING LAST 4K @ANK? 
BNE RELOCP :BR IF NOT 
MOV #2048. .R3 -2K COUNTER 
BR 1$ “RELOCATE LAST 2k sony (14K TOTAL) 
2$: MOV MRP3HSTAT.RS ——-«: DON'T CHECK BELOW RP3HST 
JSR PC, a#CHKDAT : CHECK DATA 
BVC EXIT 
MOV RO, a#STMPO 
MOV R2, a#VADR 
ERROR 
MOV @YNEXPAR , A#'K IPARG :RESTORE PAR 
JMP RETRY 
EXIT: TSTB :MEM MGMT ON? 
BNE +6 *BRANCH IF YES 
JMP aveXIT 
ADD #77 , @ANEXPAR :SET VALUE FOR NEXT RELOCATION 
MOV @FKIPARG , a#KIPARO 
ADD @FKIPARS ,@FKIPAR 
ADD @NKIPARS , a#KIPAR 
ADD @FKIPARG ,@AKIPAR 


CDROGRAM IS NOW EXECUTING IN KERNEL MODE RELOCATED TO ADDRESS AS SPEC- 


:PROGRAM I 
ADRES a ae 
Sak IP 


aRaas2 


1$: RTI 


st i SF IN KERNEL MODE noe Peds TO ADDRESS AS SPEC- 
OR EX. IF KIPARO=1600 THEN PROGRAM EXECUTING AT 


ARO ,RO 


4-7, 
RO, a#STSTNM+1 
#KERSTK, SP 


;GET PARO 

:GET BITS <14:7> IN LOW BYTE 
:PUT IN DSPLAY REG HIGH BYTE 
;SET KERNEL STACK PTR 


RESTORE OLD PSW 


;BRANCH IF TEST CODE TO 
;BE EXECUTED 


1$ 
#STMM, (SP) 
;RESTART PROGRAM AT LOOP 


; WHEN RELOCATION ABOVE 28K IS COMPLETE PROGRAM TRAPS TO ENDMEM. 
ENDMEM: CMP 


ENDM: CLR 


BIC 


a4 (3 a ene . ICE 
a 52 6 M_MGMT 
CLEAR 2 BIT MODE 


(SP)+,(SP)+ 
#B1T4 ,aaMMRS 


SERAERAAAAAERAEAAEEERAREAERAEREREERAERARERRARRAERRARAAEAERERERARAARERE EERE RAAT ARES 


ASS* HAS BEEN COMPLETED 


NOW EXECUTING IN KERNEL MODE AT PC AS SHOWN (NO RELOCATION) 


ZAT THIS TIME A ‘SUB-P 
; PROGRAM 


SEQ 0172 


On 
mm 


— 


ee ee ee ee ee eo Oe eee ee T_T ee ee ed ed eed eed = =n ot ot =o 


Rororononurunononunonorununorononona: 
UNIS 


E 16 
CE POP 11/70 CPU EXERCISER MACYT1 3OAC1052)  12-MAR-BO 11:30 PAGE 47-148 | 
CE.P11  12=MAR-80 11: 1/0 RELOCATION MONITOR SEQ 0173 
16 01 700 001616 MOV «so #700“ @"NEXPAR RESET NEXT VALUE FOR PAR REGISTERS 
3 7 os th TST aePROT 
40 : peo tt«€'S 
41 12787 001600 001616 MOV «#1600 @ANEXPAR 
ue 108037 001601 2$: CLRB  aemmnon :SET MEM MGMT ON IND = 
FF AAAAAAAAAAAAAARAAAA AAA AAAAAAAAAAAARAAAAAARAARARRAARARERAAAHAEES 
‘EBTTL END OF SUB-PASS ROUTINE 
45 3 THIS ROUTINE SETSUP THE PSW AND MAINTENANCE REGISTERS 
i FOR THE NEXT SUB-PASS. IT THEN STARTS THE PRINTER 
es (IF NOT ON ACT11) FOR TYPING THE END OF SUB-PASS MESSAGE. 
fF ERAAAAAAAAAARERAAAAEREAERERAAAAAAAAERERAAARARARRRARARERREARREEE 
E e 


ND : 
END]: MOV #ERPRT ,@#ERRVEC 
MOV #. PARSRV , @#CACHVEC pau RESTORE CACHE PARITY VECTOR 


*,. %,1 8,5 ¢,1%,15%2.5 421 * a * 
> 7 sie v € 





MOV Ri ,@ACACHVEC+2 AND 
CLR aePsw *CLEAR MODE BITS IN PSW 
JSR PC, CLRIBIT *GO CLEAR 'T’ BIT IF aset 
MOV #KERSTK, SP *SET KERNEL STACK 
BIT #100, aSTPS “CHECK IF OUTPUT DEVICE IS BUSY 
6 *1S AVAILABLE 
1$: INCB a@#SUBPASS 
MOVB § @#SUBPASS.R2 
SUB #60,R2 | 
CMP #6 ,R2 :END OF ATES? 
BNE : BRANCH IF NOT AT END 
MOV #60, @#SUBPASS : INIT SUBPASS COUNT TO ASCII 0 
CLR @eMAINT “CLEAR MAINTENANCE REG 
CLR avSMAINT *CLEAR SOFTWARE VALUE 
MOV #SEOP ,-(SP) 
RTI 
2s: ASL R2 
MOV #SRTRN, a#TBITVEC :SET 'T' TRAP VECTOR 
MOV #SUBPASS-1 , a#SREGS 
ASRB TPS 
MOV PSWTAB(2),~(SP) ;PUSH NEXT PASS PS ON STACK 
MOV SP T PROGRAM AT LOOP 
MOV MRGTAB(R>) awSMAINT 
MOV MRGTAB(R2) , aaMAINT 
3$: TSTB andy :QV PASS? 
8 BNE RTI1 “BRANCH IF YES 
CMPB «#200, aSTPS -I1S PRINTER READY? 
0 2 BNE =BRANCH IF NO 
; 44 MOV #4SG20-1 , a#SREGS 
0464 52 132636 ASRB = aS TPS ;TYPE END SUBPASS MESSAGE 
56 RTI1: RTI TART PROGRAM AT LOOP WITH NEW PSW 


: (FROM TABLE BELOW) 


5 RARER EREERERERREEREEEAAEAKEARAEEKEERERERARERARERAAREEREE EER 


.SBTTL END OF PASS ROUTINE 


*INCREMENT THE PASS NUMBER (SPASS) 7 
:*TYPE "END PASS #XXXKX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 
:*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

:*IF THERES A MONITOR GO TO IT 


ee ee Ok | 
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P11 12=MAR-B0 11:27 END OF PASS ROUTINE SEQ 0174 





CEQKCE. 
1) :*]F THERE ISN'T JUMP TO LOOP 
(1) 046460 SEOP: 
(2) 046460 004737 056632 JSR PC a#TYPTIME 
(1) ? 132562 CLR STSTNM ;3ZERO THE TEST NUMBER 
(1) 0664 7 132702 CLR STIMES = 2ERO THE NUMBER OF ITERATIONS 
(1) 046474 005267 132550 INC SPASS : INCREMENT THE PASS NUMBER 
(1) 046 042767 100000 132542 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(1) 066 7 DEC (PC)+ +: LOOP? 
(1) 0665 1 SEOPCT: .WORD 
(1) 512 3 BGT SDOAGN : YES 
(1) 514 012737 MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
(1) 516 005001 SENDCT: .WORD 1 
(1) 046520 046510 SEOPCT 
(2 046522 104400 046530 TYPE ,65$ :: TYPE ASCIZ STRING 
(2) 0665 000407 BR 64$ ::;GET OVER THE ASCIZ 
(2) >:65$:  .ASCIZ <12><15>/END PASS #/ 
(2) 046546 64$: 
( 046546 016746 132476 MOV SPASS ,-(SP) ; SAVE SPASS FOR TYPEOUT 
(2) 046552 104410 TYPDS *GO TYPE=-DECIMAL ASCII WITH SIGN 
(2) 0646554. 104400 046562 TYPE .67$ 1 TYPE ASCIZ STRING 
(2) 046560 000421 BR 66$ -GET OVER THE ASCIZ 
(2) -:67$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
(2) 046624 66$: 
(2) 06466246 016746 132434 MOV SERTTL,-(SP) ::SAVE SERTTL FOR TYPEOUT 
(2) :: TOTAL NUMBER OF ERRORS 
(2) 104410 TYPDS >:GO TYPE=-DECIMAL ASCII WITH SIGN 
(1) 066632 104400 001407 TYPE SCRLF >: TYPE CARRIAGE RETURN, LINE FEED 
(1) 046636 005067 132422 CLR $ERTTL >:CLEAR ERROR TOTAL 
(1) 046642 013700 000042 $GET42: MOV a#42,RO > =GET MONITOR ADDRESS 
(1) 046646 001405 BEQ SDOAGN : “BRANCH IF NO MONITOR 
(1) ore tt: 000005 RESET :: CLEAR THE D 
(1) 04665 710 SENDAD: JSR PC, (RO) -:GO TO MONITOR 
(1) 046654 240 NOP =: SAVE ROOM 
(1) 046656 000240 NOP ‘3 
(1) 046660 000240 NOP > :ACT11 
(1) 046662 $DOAGN: 
(1) 046662 000137 010000 JMP a*LooP + : RETURN 
(1) 046666 377 377 000 S$ENULL: .BYTE <-1,-1,0 > NULL CHARACTER STRING 
(1) 046672 EVEN 
12287 FRAARERAREARARAEREERERERERAAEAREARARERERAAEERAAERERRAERARERRER EE ES 
12288 “SBTTL RP11/RPO3 HANDLER 
1 :* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 
1 “RAEKRAAAAERAEEKARARARAEREREREEAEARARARAARAARARAREREAAAAARAEEARAAAERARAEREE 
12291 046672 104420 RP3DRV: SAVREG 
1 : 046674 105037 002006 CLRB @PRPSHSTA :CLEAR DONE FLAG 
1 046700 000400 002006 BIT #8118, aARPSHSTA “REPEAT FLAG SET? 
1 046706 001403 R$ “BRANCH IF NO 
1 6710 1044 RESREG 
1 712 050544 @ARP3RP 
1 716 013737 001654 001664 8%: MOV nd ie QrP311 :SAVE RUN TABLE INDEX 
1 6724 032777 000020 132312 BIT #SW4 , aSSWR : INHIBIT RND DSK ADR? 
1 001403 BEQ 1$ “BRANCH IF NO 
1 6734 005000 CLR 
12301 046736 005001 CLR R1 
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132740 


RP11/RPO3 HANDLER 


1§: 


4$: 


S$: 


6$: 


23: 


3$: 


R 
RP3WIRY:TST 





S$ 


PC. a#SRAND 
av$HINUM,RO 
@4SLONUM,R1 
#-7 RO 
#177000,R0 
#626 ,RO 

S$ 

#624 .RO 

4$ 
QARP311,R2 
RUNTBL (R2) .R3 
#777.R3 


R3,R 
RO,RUNTBL (R2) 


#-3,R1 


R1,R3 
#160377,R1 
#11400,R1 
2$ 
#11400,R1 
#177760,R35 
#11,R3 


3$ 
#11,R3 


R3,R1 
R1 ,RUNTRAK (R2) 
RO, @#RP SHDC 


7$ 





@ARP 3F UN 
@FRPS10 ,ARPSCS 


tS DARPSTRY 
welts aamRS 


PC 
MRP SSRY ARP SVE C 
aRP 3PSw 


:GET LO Q 

:ADJUST TO FORM CYL ADR 

;GET RID OF UNUSED BITS 
GAL CYL? 


“BRANCH IF YES 
;MAKE IT LEGAL 


:GET RUN TABLE INDEX 
:GET DEVICE ID 

;ID ONLY 

;COMBINE WITH CYL ADR 
:PUT BACK IN TABLE 
on TRK=SECT ADR 


; SAV 
;GET RID OF ALL BUT TRK 
;LEGAL TRAK? 
;BRANCH IF YES 
;MAKE IT LEGAL 


:GET SECTOR ADR 
:IS IT LEGAL? 


: COMBINE TRK-SECT 
:PUT IN TABLE 

;SAVE DESIRED CYL 

$ DSK 

: INIT TRY COUNT 

sMAP ON? 

sBRANCH IF NO 

sPUT DEVICE ID ON STACK 
;PUT ADR OF BUS ADR ON STK 
;GET MAP REGISTER 

7GET FUNCTION 

;GET BAE BITS 

:SHIFT TO BITS 4 & 5 

: COMBINE WITH FUNCTION 


;SHIFT UNIT NO TO RIGHT BITS 
: COMBINE WITH FUNC & BAE 
VE 


:I1S DRIVE READY? 
;BRANCH IF NO 


ee a 


SEQ 0175 


a) 


a 
—— mim 
v 
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3 
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1 12=MAR=80 11:27 RP11/RPO3 HANDLER SEQ 0176 
047256 013777 002152 132736 LDRP3: MOV @ARP3HDA, A@RP3DA :LOAD DSK ADR 
047 6 013777 154 132732 MOV @ARP HDC . ARP SDC “LOAD CYL ADR 
04 013777 002026 132716 MOV @ARP SHWC , ARP SWC =LOAD WORD COUNT 
013777 002062 132712 MOV @ARP SOLD, ARP3BA “LOAD BUS ADR 
047 000207 RTS PC “RE TURN | 
SF RARAAAAAAAAAAAAARAAAREAAAAAARAAAAAAARAAARAAAAARAARERAREHEHEREEAE 
"SBITL RK11/RKOS HANDLER 
:* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 
£ FARAAAARAAAAARAAARAAEAAAAAAAAAAAAAARARARAERARAAREAERAEERAHAARAERED 
047310 1044 RKDRV: SAVREG 
047312 105037 002010 CLRB @#RKHSTAT :CLEAR DONE FLAG IN HANDLER STAT 
047316 032737 000400 002010 BIT #8118, aARKHSTAT “REPEAT FLAG SET? 
047324 001403 BEQ 5$ “BRANCH IF NO 
04 104422 RESREG 
04 137 051362 J @ARKRPT 
047334 013737 001654 001670 5S: MOV QARNTBINX, a#RK11 = SAVE RUN TABLE INDEX 
ott 744 105037 002010 CLRB @ARKHSTAT :CLEAR DONE FLAG IN HANDLER STAT 
04 032777 000020 131670 BIT #SW4 , ASSWRP : DSK ADDRESS? 
047394 001403 BEQ 6$ “BRANCH IF YES 
7356 005 CLR RO “CLEAR REGISTERS 
047360 005001 CLR R1 
047362 000404 BR 7$ :FOR ADDRESS CHECKING 
047364 004737 060562 6$: JSR PC ,a#SRAND “GET RANDOM NUMBER 
047370 013700 001622 MOV a4v$HINUM,RO >GET HIGH NUMBER 
047374 072027 177775 7$: ASH #-3,RO “ADJUST TO FORM 
“CYLINDER ADDRESS 
7400 010001 MOV RO,R1 “SAVE IN R1 
047402 042701 160037 4$: BIC #160037,R1 =GET RID OF SURF-SECT BITS 
047406 022701 014300 CMP #14300,R1 71S IT A LEGAL CYLINDER? 
047412 100003 BPL 3$ “BRANCH IF YES 
047414 062701 014340 ADD #14340,R1 -ADD MAXIMUM CYLINDER 
7420 000770 BR 4$ > TRY AGAIN 
047422 072127 177773 3$: ASH #-5,R1 “ADJUST CYLINDER ADDRESS 
04.7426 01 202 001670 MOV awRk11,R2 >GET RUN TABLE INDEX 
7432 016203 001732 RUNTBL (R2) ,R3 “GET RUN TABLE ENTRY 
7436 042703 77 BIC =SAVE ID AND UNIT NO. 
047442 050103 BIS R1,R = INSERT CYLINDER ADDR 
010362 001732 MOV R3.RUNTBL (R2) “ENTER CYLINDER ADR IN RUN TABLE 
047450 072027 177770 ASH #~10.R “GENER SECTOR-SURF ADDRESS 
042 177740 BIC #177760,RO :GET RID OF EXTRA BITS 
047460 019005 MOV RO,R > SAV 
047462 042 000020 BIC #BiT4.RO *GET RID OF SURFACE BIT 
047466 022700 000012 CMP #12,R0 “1S SECTOR ADDRESS LEGAL? 
047472 100004 BPL 1$ “BRANCH IF YES 
047474 062700 000012 ADD #12,R0 “MAKE IT LEGAL 
047500 042700 000020 BIC #BIT4.RO “GET RID OF CARRY FROM ADD 
7504 042703 000017 1$: BIC #17,R3 >GET SURFACE ADDRESS 
047510 050300 BIS R3,RO :GENER COMP SECT-SURF ADDRESS 
047512 010062 001750 MOV RO. RUNTRAK (R2) >SAVE IN RUN TRAK TABLE 7 
047516 072127 000005 ASH #5,R1 “ADJUST CYLINDER ADDRESS 
047522 050100 BIS R1_-RO “CONCATINATE TRK & SECT ADDR 
047304 013701 002124 MOV @ARKUNIT,R1 “GET UNIT NUMBER 
047530 072127 000015 ASH #15,R1 * ADJUST 
047534 050100 BIS R1,R0 -CONCATINATE UNIT, TRK,SURF,SECT 
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EQKCE.P11  12=MAR-80 11:27 RK11/RKOS HANDLER SEQ 0177 
126414 75 010037 003136 MOV ; SAVE 
12415 7542 112737 17777 oose0? :SET RETRY COUNT 
12416 75 ) 7 000040 172516 BIT ;MAP ON? 
12417 067 Moo see BEQ ;BRANCH IF NO 
1 oi8 OS Isee 000001 MOV ;PUT DEVICE ID ON STACK 
12419 046 01 Le oe ee MOV 7PUT ADDRESS OF ADR ON STACK 
124 0475 06 $$ JSR ;GET MAP REG 
12421 047576 818580 000103 132064 2$: MOV 7SET FUNCTION 
126 4 047602 01 os Eg MOV ;GET BA EXTENDED 
124 ath es ASH #4 ,RO ; ADJUST 
12426 hh 3 7 001666 BIS RO, a#RK10 ;PUT IN WITH FUNCTION 
12625 7038 010037 002050 MOV RO, @FRKOLD+2 ;SAVE IN MEMORY 
124 047 104422 RESREG 
126 047624 013777 002156 Iaseis RKWTRY: MOV @ARKHDA ,@RKDA ;LOAD DISK ADDRESS 
124 0476 Oe 000100 132372 BIT #BIT6,aRKDS ;UNIT READY? 
124 047 1774 BEQ . ;BRANCH IF NO 
124 04764 IE aha eae 132370 MOV @FRKHWC , ARKWC ;LOAD WORD COUNT 
124631 0476 013777 132364 MOV @A/RKOLD , @RKBA ;LOAD BUS ADDRESS 
124 8S Far 012777 051412 152362 MOV ARKSRV , A@RKVE C ;LOAD INTERRUPT VECTOR 
126 7 77 ~«+132 CLR @RKPSW 
124 0476 5037 00217 CLR @ARKF UN 7SET FUNCTION TO WRITE 
12435 047674 013777 001666 132334 MOV @ARK10,ARKCS ;LOAD FUNCTION AND GO 
: ? ° 047702 000006 RTT RETURN 
Uf 9g 1 FLARE AARERAAAAAAAEEEATRAEAERAERERAARAARERAERERAERARERAAARERERREER 
12439 .SBTTL RH70/RPO4 HANDLER 
12440 ;* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 
12641 SERRA ARERR EAA ER AREER AARARERRAERAERERAERAERAERERARRERER RED 
9 047704 104420 RP4DRV: SAVREG 
12445 047 105037 002016 CLRB @ARPC4HSTA ;CLEAR DONE FLAG 
12444 047712 032737 002016 BIT #B1T8,@A#RPGHST sREPEAT FLAG SET? 
12445 04677. 001403 BEQ 6$ ;BRANCH IF NO 
12446 0477 1044 s RESREG 
12447 047724 1 052240 JMP PT 
1 as 047 013737 001654 001672 6$: MOV @4RNTBINX ,@A#RPS11 ;SAVE RUN TABLE INDEX 
12449 0477 105037 002016 CLRB HSTA ;CLEAR DONE FLAG 
12450 fhe 032777 000020 131274 BIT #SW4 ,aSSWRP ;RANDOM DSK ADDRESS? 
12451 7750 001403 BEQ 1$ ;BRANCH IF YES 
1 rf 047752 005000 CLR RO 
1245 7754 005001 CLR R1 ‘ 
12454 7756 000410 BR 4$ 
12455 047760 004737 060562 1$: JSR PC ,@4#SRAND ;GET RANDOM NUMBER 
12456 047764 013700 001622 MOV aw$HINUM,RO >GET HI NUMBER 
12457 Bee 013701 001620 MOV a4SLONUM, :GET LO NUMBER 
12458 7774 Or 3060 177771 ASHC #~-7 .RO sADJUST TO FORM CYL. ADR. 
12459 950000 2700 177000 4$: BIC #177000 ,RO :GET RID OF UNUSED BITS 
12460 05 022700 000631 CMP #631,RO ;LEGAL CYLINDER 
12461 050010 1000035 BPL 5$ ;BRANCH IF YES 
1 “86 050012 062700 000631 ADD #631,R0 sMAKE IT LEGAL 
12465 050016 000770 BR $ 
15465 
' vr) 050020 013702 001672 S$: MOV @ARPS11,R2 ;GET RUN TABLE INDEX 
12468 050024 016203 001732 MOV RUNTBL (R2) ,R3 ;GET DEVICE ID 
12469 050030 042703 000777 BIC #777 ,R3 ;SAVE ID ONLY 
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12—<MAR=80 11:27 RH70/RPO04 HANDLER SEQ 0178) 











P11 
0500% 0 BIS RO,R3 : COMBINE WITH CYL ADR 
1 MOV R3RUNTBL (R2) “PUT IN RUN TABLE 
7778 ASH #-3_R1 *GEN TRAK=SECT ADR 
BIC #160340,R1 :GET RID OF UNUSED BITS 
MOV R1_R3 : SAVE 
050054 000037 BIC #37_R1 :GET RID OF SECT BITS 
011000 CMP #11000,R1 “LEGAL TRAK? 
BPL 2$ “BRANCH IF YES 
011000 ADD #11000,R1 “MAKE IT LEGAL 
0 020000 BIC #B1T13.R1 “GET RID OF ADD CARRY 
7 177740 2$: BIC #177740 ,R3 “GET SECTOR ADR 
0501 000025 CMP #25 ,R3 “LEGAL SECTOR 
0501 BPL “BRANCH IF YES 
05011 000025 ADD #25,R3 “MAKE IT LEGAL 
114 000040 BIC #B1TS,R3 7GET RID OF ADD CARRY 
1 3$: BIS R3,R1 “COMBINE TRAK=SECTOR 
1 001750 MOV R1 “RUNTRAK(R2) “PUT TRAK=SECT IN TABLE 
1 002164 MOV RO. @#RPGHDC *SAVE CYLINDER ADR 
1 002162 MOV R1. @ARPGHDA “SAVE TRAK=SECTOR ADR 
0501 177775 002205 MOVB ~$ @ARPGTRY *SET TRY COUNT 
050144 RESREG 
05014 000026 RP4WTRY : JSR PC,LDRP4 LOAD RP4 REGISTERS 
05015 052264 132126 MOV WRPGSRV,ARP4VEC LOAD INTERRUPT VECTOR 
0501 132124 CLR @RP4PSW 
0 16% 002176 CLR @ARPSF UN =SET FUNCTION TO WRITE 
501 000161 132054 MOVB #161,a@RP4CS1 =LOAD FUNCTION AND GO 
050176 2 RTI “RETURN 
0 013777 002132 132056 LDRP4: MOV 1T, @RP4CS2 :LOAD UNIT NUMBER 
0 012777 01 132070 V #B1T12,aRP4OF “SET FORMAT TO 16 BIT 
050214 013777 002164 13205 MOV @PRPGHDC , @RP4DC [LOAD CYLINDER ADR 
0 013777 002162 132032 MOV @ARPGHDA, ARP4DA “LOAD TRAK=SECTOR 
0 013777 002036 132016 MOV * ARP4WC “LOAD WORD COUNT 
050236 013777 00 132014 MOV @FRPGOLD+2 , @RP4BAE “LOAD EXTENDED ADR BITS 
050244 013777 002062 132004 MOV @ARPCOLD , SRP4BA “LOAD BUS ADR 
050252 207 RTS pc * RETURN 
i. maak UL 
‘SBTTL RH70/RSO4 HANDLER 
: SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 
P 3 “REET EAEAEEAEAAEAREAERKRARAAAATAAAAAEAEARAAAAAAARARAERKRAARAARAARRAARAEARAAARAER 
104420 RSDRV: SAVREG 
1 3037 002020 CLRB @#RSHSTAT :CLEAR DONE FLAG 
737 000400 002020 BIT #8118, a#RSHSTAT “REPEAT FLAG SET? 
1403 BEQ 3$ “BRANCH IF NO 
1044 3 RESREG 
137 052750 JMP @ARSRPT 
ot 737, 001654 001674 3S: MOV QFRNTBINX,@4RS11 :SAVE RUN TABLE INDEX 
777, 000020 130730 BIT #SW4, aSSWRP =RANDOM DSK ADR? 
001403 BEQ 1$ “BRANCH IF YES 
5000 CLR RO 
5001 CLR R1 
ay * 
737 060562 1$: JSR PC. aA SRAND -GET RANDOM NUMBER 
013700 001622 MOV av$HINUM,RO 
072027 177774 ASH #=4 RO 
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ee ee EE ee 


i 
SEQ 0179 


he 
;BRANCH IF YES 

E IT LEGAL 

T RUN TABLE INDEX 


“MAKE IT LEGAL 


;SAVE IN RUN TRAK TABLE 

sADJUST TRACK ADDR 

; COMBINE SECTOR TRAK 
AS DSK ADR 


; SAVE SK 
[SET TRY COUNT 


:GO LOAD REGISTERS 
:SET INTERRUPT VECTOR 


;SET FUNCTION TO WRITE 
:;IS DRIVE READY? 

: H IF NO 

;LOAD FUNCTION AND GO 


;LOAD UNIT NUMBER 
LOAD DSK ADR 


7;LOAD WORD COUNT 
;LOAD EXTENDED ADDRESS 
;LOAD BUS ADDRESS 


{ EAAAAAAEAAEAEEERERREEAEAAEAARAEAAERRAEAAEEAARAAAERARAREREREREREREERER EH 


NTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 


° siete a gh enachan ceatuntachietataxinateaenvettarenee 


CEQKC-£ PDP POP 11/70 0,,CPU EXERC 13 SER MACY11 30A(105z2) 12-MAR-80 

CEQKCE .P11 RH70/RS04 HANDLER 

1 MOV RO,R1 

1 43: BIC w) Ry 90077 RO 

1 CMP #7600 ,R0 

125 BPL 5$ 

1 ADD #7600,RO 

1 BR 4 

' 5 5$: vd yw apt ,R2 

1 MOVB RO AUNTBL (R2) 
12535 6S: BIC #177700,R 

3 a 

ADD #77,R1 

12540 2$: MOV R1.,RUNTRAK (R2) 
1 343 ASH #6.RO 

1 3 BIS Ri “RO 

1254 MOV RO. @#RSHDA 
12544 002206 #-3, a#RSTRY 
12545 RESREG 

1 546 RSWIRY: JSR PC, a#LDRS 
1254 131656 MOV #RSSRV, ARSVEC 
12548 CLR @RSPSwW 

12549 CLR @PRSFUN 

12550 1$: TSTB = @RSDS 

12551 BEQ 1$ 

1 33 131610 MOVB  #161,aRSCS1 
333 RTI 

12555 131612 LDRS: MOV @FRSUNITARSCS2 
1 356 131602 MOV @ARSHDA, @RSDA 
125 131366 MOV @ARSHWC ,aRSWC 
12558 131564 MOV @FRSOLD+2, @RSBAE 
1255 131554 MOV @FRSOLD ,A@RSBA 
12560 RTS PC 

561 

1 368 -SBTTL RP11/RPOS SERVICE ROUTINE 
ee =i 

1 366 RP3RPT: RESET 

1256 002170 DEC @#RP3FUN 

1 000001 002170 CMP #1, @#RPSFUN 

1 BEQ RP31 

1 BLT 1$ 

1257 047210 JMP QFRP3WIRY 

1 372 000414 1$: JMP RP33 

125 002170 RP3SRV: INC @ARP3FUN 

12574 000002 002170 CMP #2 SRP SFLN 
12575 BEQ RP SwC 

1 576 BPL +6 

200 051250 JMP @ARPSREAD 
12579 sFUNCTION JUST EXECUTED WAS A WRITE 
1 380 050616 032737 000400 002006 BIT #8118 .g#RPSHSTAT 
12581 050624 001036 BNE LOOP 


sRESTORE FUNCTION 
WHAT IS IT? 


“BRANCH IF wC 
;BRANCH IF WRITE 
:BRANCH TO READ 

: INCREMENT FUNCTION 
“BRANCH TO WRITE CHECK 


;REPEAT FLAG SET? 
;BRANCH IF YES 


ee 
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RR 
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1 526 005777 131362 TST @RP3CS :ANY ERRORS? 
1 5 BPL RP31 “BRANCH IF NO 

1 002202 TSTB a#RPSTRY “TRIED 3 TIMES? 

1 00141 BEQ RP3ERR : H IF YES 

1 11 990901 131344 MOVB  #B1T0,aRP3CS =CLEAR THE DRIVE 

1 777 «(131340 TSTB = @RP3CS ; CONTROLLER READY? 
1 100375 BPL - H IF NO 

1 105237 002202 INCB  @A#RP3TRY { INCREMENT TRY COUNT 
1 013746 177776 MOV avPSwW,-(SP) ‘MAINTAIN SAME PSW 
012746 047210 MOV ARP BWIRY ,-(SP) ;SET perry ADDRESS 

1 01 100200 002006 RP3ERR: MOV #100200 ,@#RP3HSTA “SET ERROR BIT IN HAND. STA 
1 1 MOV RO,-(SP) “SAVE RO 

1 013 001664 MOV @HRP311,RO *GET RUNTABLE INDEX 
1 052760 100000 001750 BIS #B1T15,RUNTRAK(RO) “SET ERROR BIT 

1 012600 MOV (SP) +,RO :RES STORE RO 

RTI 

1 012737 100200 002006 RP3LOOP:MOV #100200 , a#RP3HSTAT :SET DONE AND ERROR 
1 005777 131260 TST @RP3CS “ANY ERRORS? 

1 100403 BMI 1$ “BRANCH IF YES 

1 042737 100000 002006 BIC #81115, a#RP3HSTAT “CLEAR ERROR BIT 

1 000002 1$: RT] RETURN 

1 :WRITE WAS OK=- NOW DO A WRITE CHECK 

1 112737 177775 002202 RP31: MOVB #-3,a#RP3TRY : INIT TRY COUNT 

1 012737 000107 001662 MOV #107,a#RP310 *SET FUNCTION 

1 053737 002044 001662 BIS AARP SOLD+2,, A#RP310 “SET BAE BITS 

1 053737 002122 001662 BIS @YRPSUNIT ,a#RP310 -SET UNIT BITS 

1 004737 047256 RP32: JSR PC ,a#LDRPS “LOAD RP3 REGISTERS 
1 013777 001662 131204 MOV @#RP310,aRP3CS “LOAD FUNCTION AND GO 
000002 RTI > RETURN 

1 -FUNCTION JUST EXECUTED WAS A WRITE CHECK 

1 051012 032737 000400 002006 RP3WCK: BIT #8118, aA#RPSHSTAT =REPEAT FLAG SET? 
1 051020 001340 BNE RP3LOOP :BRANCH IF YES 

1 051022 005777 131166 TST @RP3CS “ANY ERRORS ? 

1 051026 100031 BPL 1$ “BRANCH IF NO 

1 051030 005737 001664 TST QARP311 FIRST 2K? 

1 051054 001422 BEQ 4 “BRANCH IF YES 

1 51 36 105 002202 5$: TSTB a@#RPSTRY = TRIED 3! TIMES? 

1 051 001714 BEQ RP3ERR *BRANCH IF YES 

1 051 005337 002170 DEC @ARP3FUN “RESTORE FUNCTION 

1 051050 e777 000001 131136 MOVB ##BITO,aRP3CS *CLEAR THE DRIVE 

1 051056 105777 131132 TSTB = ARP3CS : CONTROLLER READY? 
1 51 100375 BPL oh H IF 

1 31064 105237 002202 INCB  a@#kP3TRY “INCREMENT TRY COUNT 
1 51 013746 177776 MOV apps. ~ (SP? 

1 051074 012746 050776 MOV #RP32,-(SP) 

1 051100 000002 RTI :GO TRY AGAIN 

1 051102 032777 000010 131102 4$: BIT WB1T3,@RP3ER “WRITE CHECK ERROR? 
051110 001752 BEQ S$ “BRANCH IF NO 

1 :WRITE CHECK OK- NOW DO A READ 

1 051112 112737 177775 002202 1S: MOVB #-3,a#RPSTRY ;RESTORE TRY COUNT 
1 051120 032737 000040 172516 BIT #B1TS ,aaMMRS =MAP ON? 

1 051126 001407 BEQ 2$ “BRANCH IF NO 
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EQKC-E PDP 11/70 CPU EXERCISER MACY11 30A(1052) 12=MAR-80 

EQKCE.P11 12=MAR-80 11:27 RP11/RPO3 SERVICE ROUTINE SEQ 0181 
1 11 CLR ~(SP) :PUT DEVICE ID ON STACK 
1 § eae So2 989 063274 JSR PC 9G IVEMAP ‘RETURN MAP REGISTER 
12640 0511 012746 72 MOV #RP =(SP) -PUT ADR OF BUS ADR ON STK 
12641 05114 737 063022 JSR PC ,aaGET “GET MAP REGISTERS 

1 é 1146 1 2$: MOV RO, -(SP) “SAVE RO 

1 1150 01 7% MOV @ARESNWH , *GET BAE BITS 

1 051154 0 é ASH #4 RO s ADJUST 

12645 051160 010037 002074 MOV RO. a#RP3NWH + SAVE 

1 051164 01 MOV (SP)+,RO “RESTORE RO 

12647 091166 012737 000105 001662 MOV #105, a#RP310 “SET FUNCTION 

1 1174 737 002074 001662 BIS BARP SNWH , AARP310 “SET BAE BITS 

12649 051 : 757 002128 001662 BIS Q#RPSUNIT .@#RP510 ‘SET UNIT NUMBER 

12650 051210 013777 002152 131004 RP33: MOV @ARPSHDA, @RP3DA *LOAD DSK ADR 

12651 051216 013777 002154 131000 MOV @ARPSHDC , ARP SDC “LOAD CYL 

1 3g 051 2 013777 00 26 130764 MOV SWC, SLOAD WORD COUNT 

12653 051 013777 002072 130760 MOV @ARPSNWL , ARP3BA “LOAD BUS ADR 

12654 051240 013777 001662 130746 MOV @YRP310,@RP3CS “LOAD FUNCTION AND GO 
12655 051246 000002 RTI RETURN 

1 28 :FUNCTION JUST EXECUTED WAS A READ 

12658 051250 032737 000400 002006 RPS3READ:RIT #BIT8,a4RPSHSTAT sREPEAT FLAG SET? 
12659 051 001221 BNE RP SL.00P :BRANCH IF YES 

1 051 005 130730 TST @RP3CS “ANY ERRORS? 

12661 051264 10002¢ BPL 1$ “BRANCH IF NO 

1 051 105 002202 TSTB @#RP3TRY = TRIED 3 TIMES? 

1 51 001600 BEQ RP3ERR “BRANCH IF YES 

1 091474 005337 002170 DEC @#RP 3F UN “RESTORE FUNCTION 

1 051 112777 1 130706 MOVB  #BITO,aRP3CS *CLEAR THE DRIVE 

1 051306 105777 130702 TSTB = @RP3CS =CONTROLLER READY? 

1 051312 100375 BPL 6 : H OF NO 

1 051 14 105237 002202 INCB @A#RP3TRY ‘ INCREMENT TRY COUNT 

1 51 013746 177776 MOV arp sil. ~(SP) 

1 051324 012746 051210 MOV #RP33,-(SP) 

1 0513 2 RTI :GO TRY AGAIN 

1 051332 032737 000040 172516 1S: BIT 98175, aaMMR3 *MAP ON? 

1 051340 001404 BEQ 2$ “BRANCH IF NO 

1 051342 005046 CLR =(SP) -PUT DEVICE ID IN STK 

1 51344 004737 063274 JSR PC, a#G1VEMAP “RETURN MAP REGISTERS 

1 051390 00572 TST (SP) + “RESTORE STACK 

051 352 112737 000200 002006 2$: MOV #200, @ARPSHSTA “SET DONE FLAG 

1 2 SREEERERRARKARERAEEREREREREERERARRERRERARERERERERRERERERERERRERE 
1 “SBTTL RK11/RKOS SERVICE ROUTINE 

1 ie SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
1 FARRAR AARARRERAERREREEEEREREEEKRRERKAEEREERREARAERRERRAEERARERERAREEER 
1 051362 00000 RKRPT: RESET 

1 051364 005337 002172 DEC @ARKF UN :RESTORE FUNCTION 
12685 0513 022737 000001 002172 CMP #1, Q4RKFUN “WHAT IS IT? 

1 051376 00147 BEQ RKj ; H IF we 

12687 051400 00240 BLT 1$ “BRANCH IF WRITE 

1 051402 000137 047624 JMP aARKWTRY “IT WAS A WRITE 

1 051406 000137 052044 1$: JMP AARK3 

12690 051412 062737 000001 002172 RKSRV: ADD #1, @ARKFUN :FIND OUT WHAT FUNCTION 
12691 “WAS EXECUTED 

12692 051420 022737 000002 002172 CMP #2, QARKF UN “WAS IT A WRITE CHECK? 
12693 051426 001507 BEQ RKWRCK “BRANCH IF YES 
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12696 9514 1 a +6 :BRANCH IF IT WAS A WRITE 
1432 000137 052076 JMP AWRKREAD 

1269 :FUNCTION JUST EXECUTED WAS A WRITE. ANY ERRORS? 

1 051436 032737 000400 002010 BIT #B1T8, a#RKHSTAT sREPEAT FLAG SET? 

1 051444 001040 BNE RKLOOP “BRANCH IF YES 

1 051 130564 TST @RKCS : 

12701 05145 100047 “BRANCH IF NO 

1 708 1454 105737 002203 TSTB @#RKTRY *TRYED 3 TIMES? 

12703 051 001417 RKERR “BRANCH IF YES 

12704 051 012777 000001 130546 MOV #1, ARKCS “CLEAR THE ERROR 

1 9914 004737 032282 JSR PC aeTIMER “WAIT A LITTLE 

1 1474 1 1 TSTB  aRKCS “WAIT FOR CONT CLR TO FINISH 
1270 051300 100375 = 

1 708 051 105237 002203 INCB  a@#RKTRY : INCREMENT TRY COUNT 

1 051306 013746 177776 aePSwW,-(SP) 

12710 051512 12746 047624 MOV #RKWTRY , = (SP) 

1 ele 051520 01 5 100200 002010 RKERR: MOV #100200 ,a@#RKHSTAT :SET ERROR & DONE FLAG | 
12713 0515 1 MOV RO,-(SP) = SAVE RO 

12714 051530 013700 001670 MOV a#RK11,RO “GET SAVED RUN TABLE INDEX 
12715 051534 052760 100000 001750 BIS #81715. RUNTRAK (RO) “SET ERROR BIT IN RUN TABLE 
12716 051542 O12 MOV (SP)+,RO “RESTORE RO 

1gr17 051544 000002 RTI “RETURN 

12719 051546 0127 37 100200 002010 RKLOOP:MOV #100200, @#RKHSTAT :SET DONE AND ERROR BITS 
1 051554 0057’7 130456 TST ARKCS “ANY ERRORS? 

12721 051560 100403 BMI 1$ :BRANCH IF YES 

1 g 051562 042737 100000 002010 BIC #81715, aQ#RKHSTAT “CLEAR ERROR BIT 

127 515 1$: RTI RETURN 

12726 :WRITE WAS OK, NOW DO A WRITE CHECK 

12725 051572 2737 177775 002203 RK1:  MOVB. &#=3,a4RKTRY :RESTORE TRY COUNT 

1 51 012767 000507 130060 MOV #507,RK10 “SET FUNCTION TO WRITE 

1 051606 053767 002050 130052 BIS @ARKOLD+2,RK10 “SET BA EXT BITS 

12728 051614 013777 002156 130422 RK2: MOV @ARKHDA, ARKDA “LOAD DISK ADDRESS 

1 0516¢2 13777 002030 130610 MOV @ARKHWC , ARKWC “LOAD COUNT 

1 31 13777 002046 130404 MOV @ARKOLD , @RKBA “LOAD BUS ADDRESS 

1 1636 016777 130024 130372 MOV RK10,@RKCS “START FUNCTION 

51644 2 RTI “RETURN 

1 :FUNCTION JUST EXECUTED WAS A WRITE CHECK. ANY ERRORS? 

127385 051646 032737 000400 002010 RkWRCK:BIT WR1T8, AARKHSTAT *REPEAT FLAG SET? 
1 51654 001334 BNE RKLOOP :BRANCH IF YES 

1 31656 5777 130354 TST ARKCS “ANY ERRORS? 

1 1 1 3 BPL 1$ “BRANCH IF NO 

1 51 001670 TST aARK11 “FIRST 2K? 

12740 316 1424 BEQ 4$ “BRANCH IF YES 

12741 0 1672 105737 002203 5$: TSTB  a@ARKTRY “TRYED 3 TIMES? 

1274 31 ? 1710 BEQ RKERR “BRANCH IF Y 

12743 051 005337 002176 DEC @ARPS FUN :SET FUNCTION BACK TO wC 
12744 051704 0127 1 130324 MOV #1, aRKCS :CLEAR THE ERROR 

12745 051712 737 «052222 JSR PC a#TIMER “WAIT A LITTLE 

1 246 31716 105777 130314 TSTB = @RKCS “WAIT FOR CLR TO FINISH 
12747 051 100375 BPL al 

1274 51724 105237 002203 INCB @ARK TRY : INCREMENT TRY- COUNT 
12749 051730 013746 177776 MOV aePSW,-(SP) 
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CEQKCE.P11 +=: 12 RK11/RKOS SERVICE ROUTINE SEQ 0183 
} 12746 051614 Mov #RK2,-(SP) 
1 ; 040000 130266 4$: BIT WRIT14,aRKCS ;HARD ERROR? 
g 1350 BNE S$ “BRANCH IF YES 
12755 “WRITE CHECK WAS OK, NOW DO A READ. 
1 11 737 177775 002205 is: MOVB  #=3,a#RKTRY :RESTORE TRY COUNT 
1 000040 172516 BIT #8115, aaMMR3 *MAP ON? 
1 1410 BEQ 2$ : H IF NO 
1 127 MOV #1,-(SP) =PUT DEVICE ID ON STACK 
12760 767 011274 JSR PC; GIVEMAP “RELINQUISH MAP REG 
12761 12746 002076 #RKNEWL ,- (SP) :PUT ADR OF BADR ON STACK 
1276 73 2 JSR PC, @#GE TMAP *GET MAPREGI 
1276 1 2$: MOV RO,-(SP) = SAVE RO 
1276 1 002100 MOV @YRKNEWH ,RO “GET BA EXT 
12765 7 ASH ; AD 
1 766 10037 100 MOV RO. @#RKNEWH ; 
1 1 MOV (SP)+,RO “RESTORE RO 
le 1276 105 127630 #105,RK10 *SET FUNCTION 
1 5 67 190 127 : BIS WH,RK10 =SET BA EXT BITS IN FUNCTION 
1 1 156 130172 RK3: MOV @FRKHDA , ARKDA “LOAD DISK ADDRESS 
12771 13777 00 30 130160 MOV @ARKHWC , ARKWC “LOAD WORD COUNT 
1 rr 13777 6 130154 MOV wh “LOAD BUS ADDRESS 
1 16777 127574 130142 MOV RK10,aRKCS “LOAD FUNCTION AND GO 
: de 2 RTI : RETURN 
1 776 :FUNCTION JUST EXECUTED WAS A READ. ANY ERRORS? 
1 032737 000400 002010 RKREAD: BIT #8118, aARKHSTAT :REPEAT FLAG SET? 
1 re 1g60 RKL :BRANCH IF YES 
1 5 130124 TST @RKCS “ANY ERRORS? 
1 1 1$ “BRANCH IF NO 
12781 1 002203 TSTB a@#RKTRY -TRYED 3 TIMES? 
1 1002 3$ “BRANCH IF NO 
1 167 177372 JMP RKERR 
1 5337 002172 3$: DEC FUN :SET FUNCTION BACK TO READ 
1 2 130076 MOV #1,aRKCS “CLEAR THE ERROR 
1 37 052222 JSR PC aATIMER “WAIT A LITTLE 
? 1 ISB aRKCS “WAIT FOR CLR TO FINISH 
1 257 002205 INCB  @#RKTRY : INCREMENT TRY COUNT 
1 46 177776 MOV aePSW,-(SP) 
7 6 052044 mov #RK3,=(SP) 
1279 000040 172516 18: BIT #8115, aaMMR3 :MAP ON? 
12794 BEQ 2$ *BRANCH IF NO 
12795 1 MOV #1,-(SP) *PUT RK ID ON STACK 
1 16 063274 JSR PC afGIVEMAP “RELINQUISH MAP REGSTER 
1 iST (SP) + =POP THE STACK 
1 112 000200 002010 2% MOVB #200, a#RKHSTAT =SET DON E FLAG 
1 RTI *RE TURN 
12800 000010 TIMER: CLR 1$ 
12801 105267 000004 : INCB—sC1$ 
128C 1375 BNE 2$ 
128C ? RTS PC 
304 1$ WORD 
Pa 
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RK11/RKOS SERVICE ROUTINE 


“SESSA AAAAAAEAAEAAAEASCAAAAAAAAAARAAREARAAAAARAARAEEKRARAKRE HARES 


“SBTTL RH70/RP04 SERVICE ROUTINE 






: SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
ai tia. a ore sok Tern or oo abaeanes 
RPGRPT: RESET 
DEC @PRPGFUN : RESTORE FUNCTION 
CMP #1. @#RPGFUN “WHAT IS IT? 
BEQ RP41 “BRANCH IF WC 
BLT RP43 BRANCH IF READ 
JMP BARP4WTRY “GO TO WRITE 
RP4SRV: INC @ARP4F UN “FIND OUT WHAT FUNCTION 
CMP #2, @#RPGFUN “WAS JUST EXECUTED 
BEQ RP4WCK 
BMI RP4READ 
:WRITE FUNCTION WAS JUST EXECUTED. 
BIT #B1TB, a#RP4HSTA :REPEAT FLAG SET? 
BNE LOOP “BRANCH IF YES 
BIT #B1T14,aRP4DS “ANY ERRORS 
BEQ RP41 “BRANCH IF NO 
TSTB a#RPGTRY TRIED 3! TIMES? 
BEQ RPGERR “BRANCH IF YES 
BIS #BITS ,@RP4CS2 “CLEAR ALL E 
JSR PC, a@#LDRP4 “RELOAD THE UNIT NO 
INCB ¢Y * INCREMENT TRY COUNT 
MOV avPSw,-(SP) =SETUP THE STACK TO 
MOV #RPGWTRY ,-(SP) “TRY WRITE AGAIN 
BIT #B1T8,aA#RPGHSTAT “REPEAT FLAG SET? 
BNE “BRANCH IF YES 
MOV #7 ,ARP4CS1 -RECALIBRATE 
1$ TSTB = @RP4DS “DRIVE READY? 
wf BP 1$ “BRANCH IF NO 
RPGERR: MOV #100200, @4RPGHSTA ;SET ERROR & DONE BIT 
MOV RO,-(SP) V 
MOV a#RP411,RO “GET RUN TABLE INDEX 
BIS #81115, RUNTRAK (RO) *SET ERROR BIT 
MOV (SP) +,RO “RESTORE RO 
RTI > RETURN 
RP4LOOP : MOV #100200 ,@#RP4HSTAT ;SET DONE AND ERROR BITS 
BIT WBIT14.aRP4DS “ANY ERRORS? 
BNE 1$ BRANCH IF YES 
me BIC #81115, @A#RPGHSTAT ‘CLEAR ERROR B 
:WRITE OK...NOW DO A WRITE asec. 
RP41: MOVB #-3,a4RPGTR : INITIALIZE TRY COUNT 
RPG2: ISTé -1S DRIVE READY? 
JSR PC a¥LDRP4 
MOVs #151, aRP4CS1 :LOAD FUNCTION AND GO 
-FUNCTION JUST EXECUTED WAS A WRITE CHECK 
RP4WCK: BIT ¥BIT8, a#RPGHSTAT =REPEAT FLAG SET? 
BNE 4LOOP :BRANCH IF YES 
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-P11 —s- 12=MAR=80 11:27 RH70/RP04 SERVICE ROUTINE SEQ 0185 
95 32777 040000 127542 BIT #81114, aRP4DS :ANY ERRORS? 
s iba BEQ 1$ “BRANCH IF NO 
7 002205 3$: TSTB a@#RP4TRY =TRIED 3 TIMES? 
1 ; BEQ RP4ERR : H 
002176 DEC QARPSF UN sSET TO WRITE CHECK 
955046 127514 BIS #B1TS,aRP4CS2 :CLEAR ALL ERRORS 
004737 0 JSR PC, @#LDRPS *RELOAD THE UNIT 
1032 7 INCB  a@M#RP4TRY : INCREMENT TRY COUNT 
013746 177776 MOV aePSW,-(SP) 
012746 052466 Moy #RP42.=-(SP) LTRY_AGAIN 
05 040000 127464 1$: BIT WB1T14,aRP4CS2 WRITE CHECK ERROR? 
1404 BEO “BRANCH IF NO 
7 001672 TST BARPS 11 “FIRST 2k? 
001401 BEQ 2$ 
2610 747 BR 3$ 
“WRITE CHECK WAS OK...NOW DO A READ. 
05261 112737 177775 002205 28: MOVB #=3. a#RP4TRY :INITIALIZE TRY COUNT 
05 105777 1274644 RP43: TSTB  a@RP4DS -1S DRIVE READY? 
052624 001775 BEQ RP43 : H IF NO 
05 004737 050 JSR PC, a#LDRP4 =LOAD REGISTERS 
05 013777 002114 127420 MOV @*RP4GNWH , ARP4BAE =LOAD EXTENDED ADR BITS 
05 013777 002112 127410 MOV @FRPGNWL .ARP4BA =LOAD BUS 
05 112777 000171 127376 MOVB #171, aRP4CS1 =LOAD FUNCTION AND GO 
05 000002 RTI *RE TURN 
FUNCTION JUST EXECUTED WAS A READ. 
05 032737 000400 002016 RPGREAD :BIT #8118, aARPGHSTAT :REPEAT FLAG SET? 
1 BNE LOOP “BRANCH IF YES 
040000 127374 BIT #81114, aRP4DS “ANY ERRORS? 
1421 BEQ 1$ “BRANCH IF NO 
105737 002205 TSTB 4 =—s- @WRPG TRY -TRIED 3 TIMES? 
001640 BEQ RPGERR “BRANCH IF YES 
005337 002176 DEC @YRPGF UN :SET FUNCTION TO A READ 
052777 000040 127346 BIS WBITS ,ARP4CS2 “CLEAR ALL ERRORS 
737 050200 JSR PC ,@4LDRP4 *RELOAD THE UNIT NO 
105287 2205 INCB  a#RP4TRY > INCREMENT TRY COUNT 
13746 177776 MOV aePSW,-(SP) 
12746 ARPL3,- 
2 RT] : TRY AGAIN 
112 000200 002016 1$: MOVB $ #200, @#RP4HSTA :SET DONE FLAG 
000002 TURN 
SRRRRRRRERRERERERERER EER ERE ERE AARE RRR ERE REREAD 
STL RH70/RS04 SERVICE ROUT INE 
* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
5 ARERR AEERAAEREEEREEERAEEKARAEEREKEEEKRAEREAERERERERREREREER ER 
5 RSRPT: RESET 
005337 002200 DEC @ARSFUN :RESTORE FUNCTION 
022737 000001 002200 CMP #1. @ARSFUN “WHAT IS IT? 
1467 BEO RS41 “BRANCH IF wC 
54 BLT RS43 “BRANCH IF WRITE 
137 050444 JMP BARSWIRY 
003237 902200 RSSRV: INC @ARSFUN FIND OUT WHAT FUNCTION 
022737 2 002200 CHP #2 QARSFUN “WAS JUST EXECUTED 
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RH70/RSO4 SERVICE ROUTINE 


;WRITE FUNCTION WAS 
BIT WBITS ,@ARSHSTAT ;REPEAT 


RSERR: 


RSLOOP: 


RS42: 


3$: 


RSLOOP 
BIT #81714. aRSDS 
BEQ RS41 
TSTB  @#RSTRY 
BEQ RSERR 
BIS #B1T5,aRSCS2 
JSR PC, @#LDRS 
INCB  a@ARSTRY 
MOV arPSw,-(SP) 
mov #RSWTRY ,-(SP) 
MOV #100200, a#RSHSTAT 
MOV RO,-(SP) 
MOV a#RS11,RO 
BIS #81715 .RUNTRAK (RO) 
MOV (SP)+,RO 
RTI 
MOV #100200 ,@#RSHSTAT 
BIT #31114 ,ARSDS 
BIC #81115, @#RSHSTAT 
1$: RTI 
sWRITE OK...NOW DO A WRITE CHECK 
RS41:  MOVB #3, aARSTRY 
TSTB =. @RSDS 
BEQ RS42 
JSR PC, @FLDRS 
MOVB #151. aRSCS1 
RTI 
:FUNCTION JUST EXECUTED WAS A WRITE CHE 
RSWCK: BIT #8118, aA#RSHSTAT 
BIT #81114, aRSDS 
BEQ 
TSTB = @MRSTRY 
BEQ RSERR 
DEC @YRSFUN 
BIS #B1TS ,aRSCS2 
JSR PC, aa 
INCB  a@#RSTRY 
MOV awPSwW,-(SP) 
MOV ARS42,-(SP) 
RTI 
BIT #B1T14,aRSCS2 
BEO 
TST aARS11 
BEQ 2$ 
BR 3$ 


BM! 


RSREAD 
UST EXECUTED 


E 15 
PAGE 47-161 


FLAG SET? 


;BRANCH IF YES 
;ANY ERRORS? 
;BRANCH IF NO 

sTRIED 3 TIMES? 
;BRANCH IF YES 
;CLEAR ALL ERRORS 

; UNIT # 

: INCREMENT TRY COUNT 


;SETUP THE STACK TO 
; TRY THE WRITE AGAIN 


;SET ERROR AND DONE BIT 
;SAVE R 


“GET RUN TBL INDEX 
“SET ERROR BIT 
“RESTORE RO 


:SET DONE AND ERROR BITS 
sANY ERRORS? 

;BRANCH IF YES 

: CLEAR ERROR BIT 

; RETURN 


: INIT TRY COUNT 

:IS DRIVE READY? 
;BRANCH IF NO 

;LOAD RS REGISTERS 
;LOAD FUNCTION AND GO 
RETURN 


CK 


:REPEAT FLAG SET? 
;BRANCH IF YES 
:BRANCH IF NO 

: TRIED 3 TIMES? 

; H IF YES 

:SET FUNCTION BACK TO wC 
;CLEAR THE ERROR 


: INCREMENT THE TRY COUNT 


; TRY AGAIN 
sWRITE CHECK ERROR? 
*-BRANCH IF NO 


“FIRST 2k? 
:BRANCH IF YES 


SEQ 0186 


— — — 


- 
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CEQKCE.P11  ‘*2=MAR-80 11:27 RH70/RSO04 SERVICE ROUTINE SEQ 0187 
125 “WRITE CHECK WAS OK...NOw DO A READ. 

12975 053276 112737 177775 002206 2$: MOVB  #-3.aARSTRY : INIT TRY COUNT 

125 105777 127020 RS43: TSTB  aRSDS 71S DRIVE READY? 

135 19 1775 BEQ RS43 “BRANCH IF NO 

125 1 ?7 0 JSR PC, a#LDRS “LOAD RS REGISTERS 

125 16 01 002120 126774 MOV QPRSNEWH , ARSBAE =LOAD BAE 

125 4 013777 002116 126764 MOV QPRSNEWL .ARSBA “LOAD BUS ADR 

135 112777 000171 126752 MOVB  4#171,aRSCS1 “LOAD FUNCTION AND GO 
12s 2 RTI “RETURN 

125 :FUNCTION JUST EXECUTED WAS A READ. 

12985 05 032737 000400 002020 RSREAD: BIT #8118, a#RSHSTAT :REPEAT FLAG SET? 

1 05 001 BNE RSLOOP “BRANCH IF YES 

12987 053352 0 040000 126750 BIT #B1T14,aRSDS “ANY ERRORS? 

12988 05 901421 BEQ ‘BRANCH 

125 105737 002206 TSTB  @ARSTRY : TRIED | 3! TIMES? 

125 1 BEQ RSERR H IF YES 

125 5337 002200 DEC @#RSFUN “RESTORE FUN TO READ 
12992 053374 052 000040 126722 BIS WRITS, aRSCS2 “CLEAR ALL ERRORS 

126 05 004737 050504 JSR PC, a#LDRS “LOAD UNIT # 

125 1 ; 7 206 INCB @#RSTRY “ INCREMENT TRY COUNT 
12995 053412 013746 177776 MOV av#PSwW,-(SP) 

125 05 18 012746 053304 MOV #RS43,-(SP) 

1 5 RTI : TRY AGAIN 

05 4 112 000200 002020 1S: MOVB § #200,a#RSHSTAT :SET BONE FLAG 

1 {REAR AARAEAERAAAAEAAAAEREEEAAEKEAEARAKARAEAAERAREARERAEERARREERERARERREERERE 
13001 ‘SBTTL UNIBUS EXERCISER SERVICE ROUTINE 

1 :* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
1 {REAR AEAAERERAERAAAERAAERERAEAAEAEKRAAEERAKEEEERARARERAAEARRERERERRE 
1 05 1044 UBE SRV: SAVREG 

1 5 737 064104 PC, @#LDKT :GO TO LOW CORE 

1 12704 002346 | ov #UBE TBL+6,R4 GET ADDRESS OF UBECR1 
1 5 005774 000000 TST a(R4) “WAS THERE AN ERROR? 

1 53452 100437 BM] UBE2 “BRANCH IF YES 

1 05 54 01 746 000003 MOV #3,-(SP) *PUT DEVICE ID IN STACK 
1 10 063274 JSR PC a#G1VEMAP “GIVE UP MAP REG 

1301 12767 002414 126300 MOV #SERRTB, UBE SAV * INITIALIZE UBE 

1 le 126276 CLR UBESAV+2 

1301 76 012767 002414 126272 #SERRTB, UBEADR 

13014 3 boSoe 126270 CLR 

13015 10 012746 001776 MOV #UBEADR, - (SP) 

13016 053514 00473 3022 JSR PC , @#GE TMAP 

13017 05 013754 MOV @FUBEADR+2,a-(R4) :LOAD UBECR2 

1 18 3 13754 a MOV ADR, a-(R4) “LOAD UBEBA 

13019 05 12754 172400 MOV #172400, a-(R4) “LOAD UBECC 

1 3 5 737 064202 JSR PC, @WRESKT "GO BACK TO ORIGINAL CORE 
13021 0 540 1 22 RESREG 

1 2 5 348 012777 064545 126576 MOV #64545, @UBE TBL +6 -RESTART UBE 

053550 000002 RTI “RETURN 

13025 :UBE ERROR-IS IT LAST MEMORY? 

1 053552 005037 001372 UBE2: CLR arSTMP10 

1 053556 162704 000004 SUB #4 RG :ADJUST R4 

13028 053562 017403 000002 MOV a2(R4).R3 “GET BECR2 

13029 053566 042703 070037 BIC #70037.R3 “CLEAR ALL BUT FRROR FLAGS 


on 
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“P11 ~—- 12=MAR=BO 11:27 UNIBUS EXERCISER SERVICE ROUTINE 
05 922 000400 CMP #400,R3 :WAS ERROR A TIMEQUT? 
99 BNE UBEERR = BRANCH 
017% 002002 MOV @(R4) , a#ERRBA “SAVE BUS ADR OF ERROR 
17437 2 00 MOV (R46) ,aMERRBAS2 
Ose 7 177774 00 BIC #177776 ,a#ERRBA+2 
7 062450 JSR PC a#PHYMAP :GET PHYSICAL ADDRESS THAT TIMED OuT 
09 162737 000004 001574 SUB #6. a¥PA1500 “ADJUST PHYSICAL ADR THAT FAILED 
7 001576 SBC arPAgl 6 “UBE STOPS AT ADR+4 
05 02 7 001576 001656 CMP @APA2116, a4MXMMH | “AT MAX MEM HIGH? 
05 1 1006 BHI 1$ “BRANCH IF HIGHER 
1054¢ BLO MHOLE “BRANCH IF LOWER 
023737 001574 001660 CMP @a¥PA1500, a#MXMML O =AT MAX MEM LO? 
101001 BHI 1$ “BRANCH IF HIGHER 
05 103416 BLO MHOL E *BRANCH IF LOWER 
05 012746 1$: MOV #3,-(SP) =PUT DEVICE ID ON STACK 
05 004737 063274 JSR PC a#G1VEMAP 
5 005726 TST (SP) 
004 062340 JSR PC, @#UBE INIT 
004737 064202 JSR PC; aWRESKT 
05 \Ougee RESREG 
05 012 064545 126430 MOV #64545 , @UBE TBL +6 
05 000002 RT] 
058 010637 001372 MHOLE: MOV SP, a#STMP10 
053724 013737 001262 001374 UBEERR: MOV av$LPERR, a#STMP11 :SAVE LOOP ARROR ADR 
053732 012737 053774 001262 MOV #UBE 3, a#$LPERR >SET LOOP ADR 
053740 01 000922 MOV #22 -RS 
053744 001372 TST TMP10 
053750 001002 BNE 1$ 
053752 104007 ERROR 7 
754 0004 BR UBE3 
756 013737 001574 001276 1S: MOV @#PA1500, a#SGDDAT 
764 013737 001576 001300 MOV @APA2116, a#SBDDAT 
053772 104012 ERROR 12 
:RESTART UBE IN SAME MEMORY 
055774 013737 001374 001262 : MOV QYSTMP11 ,A#SLPERR :RESTORE ERROR LOOP ADR 
54002 010446 MOV R4,-(SP) “SAVE R46 
54006 012704 002340 MOV BE LRG >GET ADDRESS OF UBE TABLE 
10 01 172400 MOV wi -a(R4)+ -SET UBEC 
14 013734 001776 MOV @(R4)+ -SET UBEBA <15:00> 
054 003074 CLR a4 (R4) “CLEAR ALL ERRORS 
054024 O13 002000 MOV OFUBE ADR 2 a(R4)+ “SET EXT ADR BITS 
9940 12774 064545 000000 MOV #64545,a(R4) *START UBE 
54 01 (SP) +, RG “RESTORE R4 
054040 004737 064202 JSR PC, aWRESKT 
54044 104422 RESREG 
054046 000002 RT] = RETURN 
5 LEAR AERAAEREERERRRREREREEEREREREREREREREREEARREARAERARERRER ERE R ES 
“SBTTL MASS BUS TESTER SERVICE ROUTINE 
;* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
5 REAR EREER EERE REEREREEAERERERREKERERERERERAARRERERAERRERE ERE ES 
054050 1044 MBTSRV: SAVREG 
054052 004737 064104 JSR PC ,@#LDKT -GO TO LOW CORE 
054056 005037 001372 CLR av$TMP10 


es 
wh 
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"P11 =: 12=MAR=80 11:27 MASS BUS TESTER SERVICE ROUT INE SEQ 0189 
954062 01370 002356 MOV #MBTTBL .R4 :GET ADDRESS OF ADDRESS UF CS1 REG 
066 04 BIT #B1T14,a(R4)+ ‘ANY ERRORS? 
054072 001007 BNE 1$ “BRANCH IF YES 
o34109 ; 7 064202 2$: ISR PC ,@#RESKT =GO BACK TO ORIGINAL CORE 
102 11 $ 000161 126246 MOVB #161,aMBTTBL 
05411 2 RT] :RESTART MBT AND RETURN 
95414 000010 1$: ADD #10,R4 “ADJUST R4 
11 4 004000 000000 BIT weitit. a(R4) *NON-EXISTANT MEMORY ERROR? 
124 001436 BEQ MBTE “BRANCH IF NO 
126 1 000006 SUB #6, Ran sADJUST R4 
132 013437 001574 MOV @(R4)+,a#PA1500 =GET BUS ADR 
54136 013437 001576 MOV @(R4)+.a#PA2116 *GET BUS ADR EXT 
054142 162737 000004 001574 SUB #4, AAPA1500 ‘ADJUST BUS ADR 
0541 7? 001576 SBC a#PA2116 
054154 023737 001574 001660 CMP avPA1500, a4MXMMLO :1S IT LAST MEMORY? 
054162 001015 BNE MEMHOL “BRANCH IF NO 
054164 023737 001576 001656 CMP @APA21 16, a4 MXMMH | “CHECK EXT ADR BITS 
054172 001011 MEMHOLE 
054174 005724 TST (RG) + : INCREMENT R4 
054176 052774 000047 000000 BIS #47, a(R4) “CLEAR THE ERROR 
054 012734 000007 MOV #7,a(RG)+ >SELECT UNIT 7 
054210 005074 177766 CLR 9 12cR4) -CLEAR WORD COUNT 
054214 000727 BR ; 
054216 010637 001372 MEMHOL E :MOV MP10 
054 013737 001262 001374 MBTERR: MOV SPSePERR, aavSTMP11 ;SAVE LOOP ADDRESS 
054 012737 054272 001262 MOV #1$, A#SLPERR 7SET NEW LOOP ADR 
O26 3 012703 000020 MOV #20,R3 :PuT DEVICE ID IN R3 
737 001372 TST av$TMP10 
054 100 BNE 2$ 
bee 50 10400 ERROR 7 
54 32 ? 1$ 
054 013737 001574 001276 28: MOV @#PA1500, a#SGDDAT 
054 013737 001576 001300 MOV @APA2 116, a#SBDDAT 
054 104013 ERROR 13 
54272 013737 001374 001262 18: MOV QYSTMP11, a#SLPERR :RESTORE LOOP ADR 
54 12704 002366 MOV WMBTTBL+10,R4 :GET ADR OF MBTTBL+10 
054 15400 MOV a-(R4) RO *GET BUS ADR EXTENDED 
094 015401 MOV a-(R4).R1 “GET BUS ADR 
0 19 015402 MOV a-(R4) RZ *GET WORD 
054312 006302 ASL R2 ‘ADJUST WORD COUNT 
054 16 160201 SUB R2,R1 =FORM START ADR OF THIS XFER 
$32 2774 000047 000010 BIS #47,a10(R4) :CLEAR THE WORLD 
054 12774 9000007 000010 MOV #7,@10(R4) “SELECT UNIT 7 
054 005724 TST (R4)+ “ADJUST R4 
54 0101 MOV RI ,a(R4)+ “RESTORE BUS ADR 
054340 010074 000000 MOV RO. a(R4) 
4 004737 064202 JSR PC. aWRESKT :GO BACK TO ORIGINAL CORE 
350 104422 RESREG 
054352 112777 000161 125776 MOVB #161,aMBTTBL : START MBT AGAIN 
054 000002 RTI “RE TURN 


° 
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- SBTTL LINE CLOCK SERVICE ROUTINE 
: THIS ROUTINE FIRST REMAPS PROGRAM EXECUTION TO LOW 
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P11 12-MAR-80 11:27 LINE CLOCK SERVICE ROUT INE SEQ 0190 
;* MEMORY. IT THEN INCREMENTS AND KEEPS TRACK OF THE 
:* SECOND AND MINUTE COUNTS KEPT IN LOCATIONS OL TICKS’ 
8 AND ‘MTICKS'’ RESPECTIVELY 
+ ReRR RRR ARE RARER TERE A ARR ARAR ERE EERE RRR E RRR R ERE EERE 
054362 1044 LKSRV: SAVREG 
054 004737 064104 JSR PC ,@4LDKT :GO TO LOW CORE 
054 105837 001700 INCB a@ALTICKS ; INCREMENT TICK COUNT 
See 4 122737 000074 001700 CMPB #60. ,@A4LTICKS : ONE SECOND YET? 
54402 oer S1S BNE 1$ H IF NO 
0544046 105237 001701 INCB @ALTICKS+1 : INCREMENT SECOND COUNT 
10 7 124610 INC SDEVCT “KEEP AP T GOING..... 
14 1 7 001700 CLRB  @ALTICKS :CLEAR SECOND COUN 
0544 122737 000074 001701 (MPR #60.,@#LTICKS+1 ONE MINUTE YET? 
054426 100% BNE 1$ *BRANCH IF NO 
0544 105037 001701 CLRB @A#LTICKS+1 
0544 005237 001676 INC DIMTICKS : INCREMENT MINUTE COUNT 
054440 0064737 064202 1$: JSR PC, @#RESKT “RESTORE THE Kk 
054444 LOGaee RESREG 
054446 012737 000100 177546 MOV #B1T6,AALKS :CLEAR READY BIT IN CLOCK 
054454 000002 RT] :RETURN 
FFARR AAHERAEAAARAAAAAAEARAAARAAEKAARARAAAAARAAERERARARAERERRERREREH 
.SBTTL SCOPE HANDLER ROUTINE 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
-*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
+ * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
= *SW14=1 LOOP ON TEST 
- *SW11=17 INHIBIT ITERATIONS 
: *SWO9=1 LOOP ON ERROR 
> *CALL 
:* SCOPE ::SCOPE=10T 
054456 SSCOPE : 
054456 032777 040000 124560 BIT #SW14,a$SSWRP ::LOOP ON PRESENT TEST? 
054464 001077 BNE bree IF SwWi4=1 
gAMANHSTART OF CODE FOR THE XOR rest RAAAAH 5s 
054466 000416 $XTSTR: BR 6% :IF SRUNNING ON THE OR, TESTER CHANGE 
< THIS INSTRUCTION TO A *NOP’* (NOP=240) 
054470 013746 000004 MOV 4 gh Ty -(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
054474 012737 054514 000004 MOV aFERRVEC :;SET FOR TIMEOUT 
054502 005737 177060 TST oat 7060 :; TIME OUT ON ? 
054 012637 000004 MOV (SP) +, @#ERRVEC : sRESTORE THE ERROR VECTOR 
054512 000453 BR $SV TO THE NEXT TEST 
054514 Oesee 5$: CMP (SP)+, (SP) + 2: CLEAR THE STACK AFTER A TIME QUT 
054516 012637 000004 MOV (SP) +, a#ERRVEC Aen ORE THE ERROR VECTOR 
054522 00041 BR 7 ON THE PRESENT TEST 
054524 6$::AA#AHHEND OF CODE FOR THE XOR iE vennn 
054524 105767 124524 2$: TSTB SERFLG :;HAS AN ERROR OCCURRED? 
0545 001421 BEQ 3 3 % 
0545 126767 124531 124514 CMPB SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
054540 101015 BHI 3$ ;:;BR IF NO 
054542 032777 001000 124474 BIT #B1T09,a$SWRP ;;LOOP ON ERROR? 
054550 001404 BEQ :;BR IF NO 
054552 016767 124504 124500 7S: MOV S$LPERR,$SLPADR ;:SET LOOP ADDRESS TO LAST SCOPE 
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2-MAR-80 11:27 SCOPE 


11 1 HANDLER ROUT] SEQ 0191 
954560 00044 1 BR SOVER 
054 105067 124466 4$: CLRB = SERFLG ::ZERO THE ERROR FLAG 
034366 005067 124604 CLR STIMES ;7CLEAR_ THE NUMBER” OF ITERATIONS TO MAKE 
5 415 BR 1$ sESCAPE TO THE NEXT TEST 
576 004000 124442 3$: BIT #B1T11.a$SWRP TINMIBIT ITERATIONS? 
2 001011 BNE 1$ “BR IF YES 
0546064 105767 124440 TSTB SPASS :e1F FARST cai? OF PROGRAM 
994619 1 BEQ 1$ INHIBIT ITERATIONS 
05461 00526 124440 INC SICNT «INCREMENT ITERATION COUNT 
054616 026767 1264554 1264432 CMP STIMES,SICNT : 3 CHECK K THE NUMBER OF I Hal gy MADE 
4 17 BGE SOVER IF MORE ITERATION REQUIR 
ot 67 000001 1 4422 1$: MOV #1,$I1CNT * cREINITIALIZE THE ITERATION COUNTER 
16767 000046 1245 MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 
054642 011667 124412 S$SVLAD: MOV (SP) , $LPADR ::SAVE SCOPE LOOP ADDRESS 
011667 124410 MOV (SP) ,$LPERR :: SAVE ERROR LOOP ADDRESS 
05465 7 126522 CLR SESCAPE == CLEAR THE ESCAPE FROM ERROR ADDRESS 
054656 Ie 6? 1 124403 MOVB  #1,$ERMAX = ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
054664 105767 aH SOVER: TSTB  $ERFLG ; ANY ERRORS? 
054670 001403 BEQ “BRANCH IF NO 
054672 116737 124356 001253 MOVB _ SERFLG, aNSTSTNM+4. 
054700 016716 124354 1$: att $SLPADR * (SP) ; ; FUDGE RE TURN ADDRESS 
054704 000002 RTI :7FIXES PS 
054706 000010 yy pee 10 s;MAX. NUMBER OF ITERATIONS 
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-SBTTL ERROR HANDLER ROUTINE 


:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: *SAVE an ERROR I ta NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

: oa W15=1 HALT ON ERROR 


HALT CAN OCCUR BEFORE AND AFTER THE ERROR TYPEOUT 
«Swit 3=1 INHIBIT ERROR TYPEOUTS 
:*SW10=1 BELL ON ERROR 
es neg LOOP ON ERROR 
*?® 
5* ERROR N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
054710 SERROR: 
054710 116737 124340 001253 MOVB cee. a4STSTNM+1 
054716 105267 124332 7$: INCB SERF ;3SET ne ERROR FLAG 
054722 001775 BEQ 7$ :DON'T LET THE FLAG GO TO ZERO 
Bae 4 016737 124322 177570 MOV STSTNA, @#DISPLAY = :DISPLAY ada NUMBER AND ERROR FLAG 
54 005767 124276 TST SENV ::;APT MODE ? 
054 001414 BEQ 10$ 
054740 011667 124252 MOV (SP) , SFATAL :;LOAD APT MAILBOX 
054744 162767 O00002 124244 SUB #2,$F ATAL 
054752 016767 124274 124240 MOV STSTNM,STESTN 
054 012767 000001 124226 MOV #1 ,.SMSGTY >; FATAL ERROR 
054 $6 000000 HALT 
0547 10$: 
054770 005777 124250 TST @$SWRP ; sHALT ON ERROR = 1? 
054774 100001 BPL 8$ ; ;BRANCH IF NO 
054776 000000 HALT 


YES=-HALT 
55000 032777 002000 124236 8$: BIT 4#B1T10,a$SWRP : TBELL ON ERROR? 
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12=MAR=80 11:27 ERROR HANDLER ROUT! SEQ 0192 
2008 140 BEQ 1$ :iNO - SKIP 
1 001402 TYPE + RING 
14 005267 1 aged 1$: INC $ERTTL 33 T THE NUMBER OF ERRORS 
011667 126244 MOV (SP) , SERRPC >:GET ADDRESS OF ERROR INSTRUCTION 
6 162767 124236 SUB #2, SERRPC 
11 767 124232 1264226 MOVB @SERRPC S$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
0 124176 BIT #81113, a$SWRP ;3SKIP TYPEOUT IF SET 
3046 001004 BNE 2$ *SKIP TYPEOUTS 
004767 000056 JSR PC, SERRTYP *:GO TO USER ERROR ROUTINE 
5054 104400 001407 TYPE /$CRLF 
5060 005 124160 2$: TST aSSWRP :HALT ON ERROR 
5064 100001 BPL 93 $ SKIP IF CONTINUE 
3066 900000 HALT T ON ERROR! 
50 02¢ 67 046652 122744 9S: CMP #SENDAD , 42 St ACT<11? 
5076 001001 BNE 3$ ; BRANCH IF NO 
51 900000 HALT “Y 
5102 0 001000 124134 38: BIT #81T09,a$SWRP ; LOOP ON ERROR SWITCH SET? 
511 901402 BEQ 4$ :BR IF NO 
5112 016716 124144 MOV SLPERR, (SP) *:FUDGE RETURN FOR LOOPING 
5116 767 124256 4$: TST SESCAPE : CHECK FOR AN ESCAPE ADDRESS 
5122 001402 BEQ 5% IF NONE 
51 4 016716 124250 = MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
5130 000002 RTI 


RETURN 
PPITITT ITIL ITLL TITTLE LLL LLL LE Lett Littl 


* SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


s*THIS ROUTINE FIRST TYPES A STANDARD MESSAGE CONSISTING OF THE 

; “VIRTUAL PC, THE PHYSICAL PC, THE PSW AT THE TIME OF THE ERROR CALL, 

:*AND THE SUB-PASS COUNT. THE SUB-PASS COUNT CONSISTS OF THE SUB PASS COUNT IN THE 
; *HIGH BYTE AND THE PASS COUNT IN THE LOW BYTE. 


eI THEN USES THE ‘‘ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
s ERRORS IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’ 
sTHE ERROR MESSAGE POINTER AND TYPES THE ERROR MESSAGE. THE DATA 

‘ SHEADER POINTER IS THEN 3) yer AND A DATA HEADER IS TYPED. 

;* THE DATA POINTER AND DATA FORMAT ARE THEN OBTAINED. THERE ARE 
*FOUR TYPES OF DATA FORMAT, AS FOLLOWS: 


0 TYPE THE CONTENTS OF THE DATA TABLE WORD IN 
6 DIGIT OCTAL FORMA 
ONVERT THE CONTENTS OF THE DATA TABLE WORD TO 
AND NUMBER 


> a en an 6 ee oe 
Pee eee eee ee ee! 
- WN — 
Cc 
w“ 
mn 
z 
8 
= 
m 
z= 
“4 
~" 
of 
— 4 
z 
o 
a 
P= 
isk 
m 
ib 
oa) 
> 


VICES NAME 
ONVERT WO WORDS ag ok TO BY rine DATA 
TABLE TO Ailey POINT FORMAT AND TYPE. 
5 CONVERT THE FOUR WORDS POINTED TO BY a. DATA 
TABLE TO FLOATING DOUBLE FORMAT AND TYPE 


SRE REEEEREEEEEREEEREREEREREEEEEREREKERAREEEEEERRRERRERREREREE 


20 SERRTYP: SAVREG 
7 TYPE , SCRLF -" ‘CARRIAGE i ® ‘LINE FEED’ 
2 JSR PC ,@4TYPTIME “60 TYPE THE TIME 


L 15 ‘| 
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CEQKCE.P11  12=MAR- MESSAGE TYPEOQUT ROUTINE SEQ 0193 
13197 2 .. ee 
131 140 TYPE SCRLF 
131 126110 MOV $ERRPC ,-(SP) ::SAVE $SERRPC FOR TYPEOUT 
°: TYPE THE VIRTUAL PC 
TYPOC *:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
1 056404 TYPE ,8$ 
1 001572 MOV BYVADR RO :SAVE VADR 
1 001270 001572 MOV GASERRPC ,@#VADR “SAVE THE VIR PC FOR CONVERSION 
14 001266 CMB #14, @WS1TEME 
1 001266 TSTB © aa#SITEMB :ERROR ZERO? 
1 BNE 42$ “BRANCH IF NO 
1 556 51$: JSR PC, a#CNVADR “CONVERT TO 22 BITS 
001572 MOV RO @AVADR 
1 6 1572 001574 42$: MOV @AVADR , a#PA1500 
1 5 1576 CLR aAPA2116 
1 5 001 MOV RO, @#VADR 
1 5 001574 41$: MOV #PA1500,-(SP) :PUT ADDRESS OFPC ON STACK 
1 3 057670 JSR PC , a#$DB20 “CONVERT TO ASCII 
1 000003 ADD #3, (SP) “GET RID OF 3 MS DIGITS 
1 000002 MOV (SP) +, 30$ “SAVE POINTER TO ASCII 
1 TYPE “TYPE IT 
1 5 30$: . WORD 
1 5 056404 TYPE 8$ 
13 30 MOV $0 (SP) ,-(SP) :GET PSW AT TIME OF ERROR 
} TYPOC s TYPE IT 
1 055304 104400 056404 TYPE 8$ 
1 055310 016746 124374 MOV $MAINT,-(SP)  ::SAVE SMAINT FOR TYPEOUT 
:: TYPE THE MAINTENANCE REG 
55314 104402 TYPOC >:GO TYPE--OCTAL ASCII(ALL DIGITS) 
1 55316 104400 056404 TYPE 8$ 
1 55 116746 123724 $TSTNM,-(SP) 
1 55 105066 000001 CLRB 1(SP) 
1 55 10440 TYPOC : TYPE THE TEST NUMBER 
1 33 1 056404 TYPE ,8$ 
1 5340 013746 001630 MOV @4SUBPASS , - (SP) 
1 55 162716 000060 #60, (SP) 
1 22 39 10440 TYPOC 
1 5 32 104400 056404 TYPE ,8$ 
1 55 016746 123666 MOV $PASS,-(SP) ::SAVE SPASS FOR TYPEOUT 
>; TYPE THE PASS COUNT 
35 10440 TYPOC =:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
1 5 104400 001407 TYPE  ,$CRLF 
1 55 5000 CLR 
1 55 153 001266 BIS8 § a#SITEMB.RO :PICK UP THE INDEX 
1 5537 0014 1 BEQ 6$ “EXIT IF ZERO 
1 554 22700 000007 1$: CMP #7,RO :1S THIS ERROR 7? 
13240 09 001551 BEQ 15$ “BRANCH IF YES 
13241 5300 DEC RO * ADJUST THE INDEX SO THAT IT WILL 
1 4g 05541 ASL RO 2: WORK FOR THE ERROR TABLE 
1 05541 ASL RO 
13264 055414 ASL RO 
13245 05541 700 002414 ADD #$ERRTB.RO ;;FORM TABLE POINTER 
13246 055422 012067 000004 MOV (RO) +, 2$ *=PICKUP "ERROR MESSAGE’ POINTER 


N me 
3S 
$FSE 


om 


EYSS 


—d 2d ss 4 


w 


VMEUN— 


w 


RAR 
SRRERESE TS 


—s 
PN} 


ras 


Senees 
SISSSSS9S999 
Bsrcens 


N 
— 
oS 
Ww 


WIV 


eo RESESRARE 


SEeKR 


Sy 99 seer 


RARARAA 


Ww 
So 


ARRARRARAAA 
ESSE 
Nm 


_ 
So 


Wn 


ESS. 
AEM 


g 


— 


ce er ee ec cD eee ee ee ed a ed eed ed ed od oe 
=) S 

Ww Ww 

Ww 

wy 


AN 
Nm 


M15 
70 CPU EXERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-169 
11: ERROR 


2-MAR~-80 MESSAGE TYPEOUT ROUTINE SEQ 0194 
1404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
1 TYPE TYPE THE "ERROR s 
2$: .WORD 0 iz MESSAGE’’ POINTER GOES HERE 
1 001407 TYPE SSCRLF :: "CARRIAGE RETURN'' & ‘LINE FEED 
912067 000004 3$: MOV _.. (RO) +, 4% *:PICKUP ‘DATA HEADER'’ POINTER 
1 BEQSti‘*“SS ;:SKIP TYPEOUT IF 0 
104400 os 2: TYPE THE ‘DATA HEADER’ 
Mirae 4$: .WORD 0 ;;'DATA HEADER’’ POINTER GOES HERE 
104400 001407 TYPE SSCRLF :: "CARRIAGE RET @ "LINE FEED" 
012001 S$: MOV (RO) +,R1 -:PICKUP 'DATA TABLE’’ POINTER 
001004 BNE 7$ ::G0 TYPE THE DATA 
106482 6$: RESREG <s >, ly 
104 001407 TYPE SSCRLF ::'"CARRIAGE RETURN'' & "LINE FEED"' 
sett aif RTS PC : sRETURN 
011 3 7$: MOV (RO) ,R2 “GET ‘DATA FORMAT’’ POINTER 
122712 000001 10$: CMPB—sa#1, (R2) “DATA FORMAT 1? 
1424 BEQ $ “BRANCH IF YES 
122712 000002 CMPBséd#2, (R2) “DATA FORMAT 2? 
001441 BEQ “BRANCH IF YES 
1 erie 000003 CMPBsa#3, (R2) “DATA FORMAT 3? 
144 BEQ “BRANCH IF YES 
122712 000004 CMPBsa#4,, (R2) “DATA FORMAT 4? 
1456 BEQ “BRANCH IF YES 
122712 000005 CMPRso#'5., (R2) *DATA FORMAT 5? 
001465 BEQ 60$ “BRANCH IF YES 
FF RARER EREKREREERREEREEEEEKEEEEKERKEREEREERAEREEKKEEREREEERERKEEEEEE 
:DATA FORMAT 0 
202 INC R2 s INCREMENT FORMAT POINTER 
013146 MOV a(R1)+,-(SP) *PUSH DATA TO BE TYPED 
104402 TYPOC 
005711 13$: TST (R1) :ANY MORE DATA? 
001747 BEQ 6$ “BRANCH IF NO 
104 40¢ 056404 TYPE ,88 -TYPE TWO SPACES 
< P+ RRARAEAEATAAAAAARAAEAARAEAEAEEEAAKAKAAAAAKRAAKEAAEKRKKERAREAAARKKEKEKEARREEKEE 
“DATA FORMAT 1 
905202 5s: INC R2 : INCREMENT FORMAT POINTER 
062556 JSR PC ,@#CNVADR -GET 22 BIT ADR 
012746 001574 14$: MOV #PA1500,-(SP) :PUSH ADR OF 22 BIT ADR 
004737 057670 JSR a =CONVERT TO ASCII 
062716 000003 ADD #3, (SP) =DELETE LEADING ZEROS 
012667 000002 MOV (SP)+,12$ *GET ADR OF ASCII STRING 
104400 TYPE 
12$: . WORD 
062701 000002 ADD M2 R1 : INCREMENT R1 
000753 13$ 
FL AAA AERREREEREREEEEREEEEREEREEERAEKEREKEEKERAEKEERREEERERAERERREER ERE ES 
“DATA FORMAT 2 
005202 118: INC R2 : INCREMENT FORMAT POINTER 
011100 MOV (R1),RO 
012037 001574 MOV (RO) +,a4PA1500 
011037 001576 MOV (RO) ,a#PA2116 
754 BR 14$ 
J LARA RARER EREREEREREKEEEEEEREAERREERERARARARRRERAEARERRERRERRD 
“DATA FORMAT 3 
005202 24$: INC R2 : INCREMENT FORMAT POINTER 
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064372 900010 
000004 000002 


000002 


000002 


000002 


000002 


064572 
000002 
055754 


000010 
064761 


000020 


065074 
000012 


064546 
000002 
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MESSAGE TYPEOUT ROUTINE 


MOV a(R1)+,25$ :GET DEVICE ID 


ADD #MSGINK,25$ *FORM ADR OF ASCIZ ADR 
MOV a25$,25$ “GET ADR OF ASCIZ 


253: P 
BR * CONT 
es 
FFARR ERERAEEEERAERRAARAEREAERAERAARRARARERARRREEKEHE 


:DATA FORMAT 4 
40$: 


INC R2 
MOV (R1)+,44$ ;GET ADDRESS OF DATA 
FL20 ;CONVERT TO FLOATING FORMAT 
44$: . WORD 
MOV (SP)+,45$ ;GET ADDRESS OF ASCIZ STRING 
TYPE : TYPE THE DATA 
45$: . WORD 


WR PAADAAALSAALASALSSLAASASRARSSRE SALA SALA SASA SALA LARA R AAR AAAS ASE SS | 


“DATA FORMAT 5 
60$: 


INC R2 s INCREMENT FORMAT POINTER 
MOV (R1)+,61$ :GET ADDRESS OF DATA 
FLD20 : CONVERT TO FLOATING ASCIZ 
61$: - WORD 
V (SP)+,62$ :GET ADDRESS OF ASCIZ STRING 
TYPE ; TYPE THE DATA 
62$: WORD 135 


'WeeOSDASASASZALSELLALASLE ELAR A SELES SSE ESSE SRR RRS SAAR ALAS AAAS AS S| 


“ERROR 7 DECODE 
15 MOV -SAVE R3 


$: R3,RO ; 
ADD #MSGINX,RO *GEN ADRS OF ASCIZ 
MOV (RO), 16$ 


TYPE 
16$: - WORD 
TYPE ,65$ :: TYPE ASCIZ STRING 
BR $ :=GET OVER THE ASCIZ 
658% “ASCIZ /FAILED/<CRLF> 
MOV R3,RO sSAVE DEVICE ID 
CMP #10,R0 “MASS BUS DEVICE? 
BLE 17$ “BRANCH IF YES 
TYPE sMSG12 


5 [REA AEEAREEREEAEKRERERERERAKEEKEREREREKREKEKKEREEKEEAEEKERERREERERER 


“MASS BUS ERR 
7$: CMP 


j #20,R3 :MBT ERROR? 
BEQ 26$ “BRANCH IF MBT ERROR 
BLT 27$ “BRANCH IF UBE ERROR 
TYPE ,MSG13 
CMP #12,R0 :WAS IT RS? 
29$ “BRANCH IF NO 


fs 
SL ARERR AEEERREREREREREEEEEEREEREERKEEEEEREEREREKKEERERARREEREEER EE 


UNIBUS ERROR OR RSO4 ERROR 


18$ AREGINX,RO -FORM ADR OF REG TABLE 
MOV (RO) .RO *GET ADR OF REG TABLE 
CMP #2.R3 *RP3 OR RK? 
BEQ 20$ “BRANCH IF RK 


SEQ 0195 
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CEQKCE.P11 12=MAR- ; RROR MESSAGE TYPEOUT ROUTINE SEQ 0196 
x BMI 21$ : BRANCH T RPO3 
000007 MOV #7 RG “SET RPO S08. COUNT 
00423 BR 22$ 
01 000006 20S: MOV #6 RS :SET RKOS SOB COUNT 
Gi27e 000011 21$: MOV al JRG :SET RSO4 SOB COUNT 
. FERRARA AAAAAAAAAAAAEAAEAARAAAKAAAAEAAAAARARARARERAARAKRHERRRED 
“BT ERROR 
é 104400 065263 268: TYPE .MSG16 
hé 012704 900011 MOV #174 :SET MBT SOB COUNT 
74 700 064546 28$: ADD #REGINX RO 
i. 100 011000 MOV (RO) ,RO :GET ADR OF MBT TABLE 
59 056102 000605 BR 22$ *GO TYPE REGISTERS 
-UNIBUS EXERCISER ERROR 
71 956104 104400 065372 27$: TYPE ,MSG17 
7 110 012704 000004 MOV #4 RG :SET 7UBE SOB COUNT 
114 767 BR 28$ *GO TYPE UBE REGISTERS 
4 116 01 22$: MOV a(RO)+,=-(SP) GET DATA IN REG 
120 104402 TYPOC TYPE IT 
76 056122 104400 056404 TYPE ,8$ “TYPE TwO SPACES 
056126 077405 SOB R4,22$ : CONT INUE 
78 5 FARRER AREEAEEREEEKAEEKERERKEARARRERKERAEKKKEEEKEE KEE REEERKKEERHE 
379 “THIS CODE TYPES A PHYSICAL BUS ADDRESS IF THF ERROR WAS AN RPO3, RKOS, OR UBE 
mas 





381 0561 022703 000022 CMP #22.R3 ;UBE ERROR? 
134 001454 BEQ 73$ :BRANCH IF YES 
533 1 2703 000002 CMP #2,R3 =RKO5? 
56142 002445 BLT 32$ “BRANCH IF NOT RK OR RPO3 
385 056144 1005 BNE 70$ sBRANCH IF RPO3 
38¢ :RKOS ERROR 
: $6146 104400 065566 TYPE = ,MSG22 
888 056152 012700 002236 MOV WRKCS RO :GET ADR OF ADR OF RKCS REG 
389 056156 04 BR 71$ 
9C -RPO3 ERROR 
91 056160 012700 002214 70$: MOV WRP3CS,RO :GET ADR OF ADR OF RP3CS REG 
92 056164 104400 065576 TYPE MSG2 
-GET, CALCULATE. & TYPE PHYSICAL BUS ADDRESS 
056170 13001 71$: MOV a(RO)+,R1 :GET BUS ADR EXTENDED BITS 
561 5 TST @R0) + :ADJUST RO 
5174 0130 092002 MOV @(RO)+,@#ERRBA :GET BUS ADRESS THAT FAILED 
5200 127 177774 #~4, “GET BITS 485 INTO BITS 081 
1 177774 BIC #177774,R1 :GET RID OF UNUSED BITS 
10137 MOV R1,Q@WERRBA+2  ;:SAVE EXTENDED BITS 
7 2 002002 74$: SUB #2 OFERRBA “DECREMENT BUS ADR 
7 SBC a#ERRBAt 
7 JSR PC, a#PHYMAP :GO CONVERT TO 22 BIT PHYSICAL 
12746 1574 MOV #PA1500,-(SP) 
737 057670 JSR PC, a¥$DB20 :CONVERT TO ASCIZ STRING 
716 9000053 ADD #3, (SP) “GET RID OF LEADING ZEROS 
2 MOV (SP)+, 72% 
1044 YPE 
72$: . WORD 
104400 001407 32$: TYPE SSCRLF 
000167 177174 JMP 68 sEXIT 


a a etd od = 2d = 0 = oe oe = 





:GET UBE VIRTUAL ADDRESS 
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2=MAR~B80 11: MESSAGE TYPEOUT ROUTINE SEQ 0197 
4) 342 73$: MOV WUBETBL+2.RO :GET ADR OF UBE TABLE +2 
1 MOV @(RO)+, a#ERRBA :GET BUS ADR THAT FAILED 
4) 7 MOV a(RO)+ @#ERRBA+2-GET BAE BITS 
7 177774 00 BIC #177774, @MERRBA+2: MASK OFF ADR BITS 
162737 000002 002002 SUB 
7 SBC @FERRBAt2 
000 BR 74$ :GO CONVERT & TYPE PHYSICAL ADR 
 RaRRAAREREEEREEREREEREERERERERAROEREERARRAREERERERREEERRRETEREEE 
“RPO4 ERROR 
62700 064546 59$: ADD #REGINX,RO 
git MOV (RO) ) .RO :FORM ADR OF RPO4 TABLE 
1 000011 MOV =SET SOB COUNT 
$1 8006 31$: MOV Sind), ~(SP) “GET DATA TO BE TYPED 
104402 TYPOC *TYPE DATA 
104400 056404 TYPE ,8$ 
077405 R4,31$ : CONT INUE 
104400 001407 TYPE  ,S$CRLF 
104400 001407 TYPE  ,S$CRLF 
012704 MOV #4 RG :SET SOB COUNT 
104400 065204 TYPE §_,MSG14 
013046 50$: MOV @(RO)+,-(SP) | ;GET DTA TO BE TYPED 
1 02 TYPOC “TYPE IT 
10444 056404 ,8$ 
077405 S08 R4,50$ : CONT INUE 
000725 BR $ 
Fogg 000 8$: oe ae :;TWO(2) SPACES 
{EAA EREEAEEEKKEKREREKEEKEKEEKKERKAEKEKKKEKEKEKEREREREKEEH 
.SBTTL TYPE ROUTINE 
;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
* «NOT E1: $NULL CONTAINS THE CHARACTER T0 BE USED AS THE FILLER CHARACTER. 
* *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: NOTE 3: S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
;*CALL: 
>*1) USING A TRAP INSTRUCTION 
fe TYPE §_,MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
*® 
7% TYPE 
Je MESADR 
$2) USING A JSR INSTRUCT LON 
* MOV PS,-(SP) »=PUSH PROCESSOR STATUS WORD ON THE STACK 
zs JSR PC. $TYPE *:CALL TYPE ROUTINE 
:* ME SADDR ->FIRST ADRESS OF MESSAGE 
105767 122707 $TYPE: TSTB  $TPFLG i318 THERE A TERMINAL? 
100002 BPL ox ::BR IF Y 
000000 HAL T >:HALT HERE IF NO TERMINAL 
000407 BR 3$ : LEAVE 
010046 1$: MOV RO,-(SP) >= SAVE RO 
017600 000002 MOV @2(SP),RO >:GET ADDRESS OF ASCIZ STRING 
112046 2$: MOVB (RO) +, -(SP) -=PUSH CHARACTER TO BE TYPED ONTO STACK 
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001546 
122526 
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000060 


122520 
000002 


000002 


BNE 4$ 
TST (SP)+ 
MOV (SP)+,RO 
3$ ADD #2, (SP) 
RTI 
4$: C #HT , (SP) 
BEQ 
CMPB AMCRLF , (SP) 
BNE 5$ 
TST (SP) + 
TYPE SCRLF 
BR 5 
5$ JSR PC, STYPEC 
6$ CMPB SFILLC, (SP) + 
BNE 2$ 
MOV SNULL , - (SP) 
7$ DECB 1(SP) 
BLT 6$ 
JSR PC, STYPEC 
DECB SCHARCNT 
; ;HORIZONTAL TAB PROCESSOR 
8$: MOVB #" (SP) 
9$: JSR PC ,STYPEC 
BITB #7, SCHARCNT 
BNE 9$ 
TST (SP) + 
BR 2$ 
STYPEC: TST @FNOT YPE 
BM! STYPEX 
TSTB asTPs 
BPL STYPEC 
MOVB 2(SP) ,aSTPB 
CMPB #CR,2 (SP) 
BNE 1$ 
CLRB SCHARCNT 
BR STYPEX 
1$: CMPB WLF ,2(SP) 
BEQ STYPEX 
INCB (PC)+ 
SCHARCNT:.WORD OQ 
STYPEX: RTS PC 
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: TYPE ROUTINE 


IF IT ISN*T THE TERMINATOR 


3; 7BR 
771F TERMINATOR POP IT OFF THE STACK 


; sRESTORE RO 

; ADJUST RETURN PC 

3; RETURN 

; ;BRANCH IF <HT> 

; ;BRANCH IF NOT 

::POP <CR><LF> EQUIV 

::;GET NEXT CHARACTER 

. TYPE THIS CHARACTER 

IT TIME FOR FILLER CHARS.? 
GET NEXT . 

F FILLER CHARS. NEEDED 
CHAR. 

A NULL NEED TO BE TYPED? 

-GO 


tof. 
Anne 


conus 
alae 
Moo 


> BRANCH IF NOT AT 
AB STOP 

::POP SPACE OFF STACK 

::GET NEXT CHARACTER 

> INHIBIT TYPING? 


x4 H IF YES 
sWAIT UNTIL PRINTER IS READY 


;;REPLACE TAB WITH SPACE 
PE A SPACE 


:;LOAD CHAR TO BE TYPED INTO DATA REG. 
BRANCH IF 


"NOT <CR> 


-SBTTL ROUTINE TO TYPE THE ELAPSED RUN TIME OF THE 


PROGRAM 
TINE CONVERTS THE CONTENTS OF LOCATIONS ‘LTICKS’’ 


;* THIS ROU 

3* AND ‘MTICKS'’ TO SECONDS AND MINUTES/HOURS RESPECTIVELY 

s* AND TYPES THEM IN THE FOLLOWING FORMAT: 

.* HHH :MM:SS 

FL RRA RERERREEEEREEEREREREKEEEKEKERERREREREERKEEEERERERERERRREREES 


JSR P 
MOVB @ALTICKS+1,R1 


PC ,@4LDKT 


:GO BACK TO LOW CORE 
:GET SECOND COUNT 


POP THE NULL OFF OF STACK 
A NULL 
OUNT THE NULL AS A CHARACTER 


w 
——— 
Oro 


RAARAAARAAAD 
SEEESIEES 
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12=MAR 1:27 ROUT I 


1 NE TO TYPE THE ELAPSED RUN TIME OF THE PROGRAM SEQ 0199 
CLR RO 
7 000012 DIV #10. RO 
062 1 900060 ADD #60,R1 
110137 057070 MOVB  R1,a#TIMEBUF+10 
010001 MOV RO,R1 
CLR 
1 000006 DIV 
1 ADD #60,R1 
110137 057067 MOVB  R1,a4TIMEBUF +7 
013701 001676 MOV aM ICKS RI :GET MINUTE COUNT 
1 900012 DIV #10. ,RO :GET HOURS AND MINUTES 
1 ADD #60,R1 “MAKE REMAINDER ASCII 
110167 000141 MOVB R1,TIMEBUF+5 :PUT IN BUFFER 
010001 MOV RO,R1 
CO7R00 CLR RO 
07102 000006 DIV #6. ,RO 
1 000060 ADD #60,R1 
110167 000120 MOVB = R1, TIMEBUF +4 
005700 TST RO 
001434 BEQ 2$ 
010001 MOV RO,R1 
005000 CLR RO 
071027 000012 DIV #10. ,RO 
701 000060 ADD “RI 
M0167 000072 MOVB _R1, TIMEBUF +2 
TST RO 
1422 BEQ 2$ 
0100061 MOV RO.R1 
905000 CLR RO 
1087 000010 DIV #10,RO 
062701 000060 ADD 60 
110167 000045 R1, TIMEBUF +1 
5 TST RO 
1410 BEQ 2$ 
10001 MOV RO,R1 
5 CLR RO 
71 i 000012 DIV #10. ,RO 
110167 MOVB  R1, TIMEBUF 
1044 2$: TYPE  ,TIMEBUF 
104400 001407 TYPE  ,$CRLF 
004737 JSR PC, AARESKT :GO BACK TO ORIGINAL MEMORY 
104422 RESREG 
000207 RTS PC 
001 001 001 TIMEBUF:.BYTE 1,1.1,.72.1.1,72,60,60.0 
072 001 001 
072 060 060 
000 
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° SBTTL ROUTINE TO TYPE THE AVAILABLE DEVICES AND UNIT NUMBERS 
he THIS ROUTINE SEARCHES THE SYSTEM SIZE TABLE FOR NON- 


a RE 
mh 


S 


Ww 


SBSESE 
SSSSSSSSSS 


NNNNNNNS 
——t aed Dd td td Ld 
— 
> 


SNSEVSSSEEEKVSSNS 


3 
MEUM 9 OD NOUS WO 


PAPA PAAAAAAAAVIVI AIA 


Ww 


ee ee ee ed ee ed eed ed etd ed ed 
— 


oe 
RARAAAAAAAAARARRAAR 


SNS NNN NSS 


= 
LA 


LO Oe i Oe Le Un, Oe hl, th, hm in, Hn, ihn Lm te thm tm tm, tm tr tm i TULA 


ee ee ee eee ee ee ee ee ee ele ee ee ee Lal 


. 

v 
= 
= 


33 


wRSaN 


=—OoO 
= 
3 


“Nw 


me ee ed ed ed ed eed wd 2) oD 


2a et ee 
WMIO SM 


a33 


a83s 


S 


i 


oO 
= 
= 
oO 


S 
ae 


f 
3 


000060 
001712 
000010 


057212 
000010 
001407 

054 


70 CPU EXERCISER MACY11 30A(1052) 
11:27 ROU 


000034 


040 


F 16 
12-MAR-80 11:30 PAGE 47-175 


TINE TO TYPE THE AVAILABLE DEVICES AND UNIT NUMBERS SEQ 0200 


* ZERO ENTRIES.WHEN IT FINDS es “t TYPES THE NAME OF THE 
5 DEVICE AND THE UNIT NUMBERS T WERE FOUND TO BE 
:* AVAILABLE FOR THAT DEVICE. 
ff SRARAAAAAAAAAAAAAAAAAAAAAARAARAAEAAKARARARARARAAAAARARARAAARERRER 
TYPSIZ: TYPE ~SWITCH 
TYPE “MSG30 sNOTE SWITCH REG BIT 8 REVERSAL 
TYPE ,4SG4 
noe 4 laa ;SET SOB COUNT 
1$ TSTB SYSSIZE(R1) ;DEVICE AVAILABLE? 
BNE 2$ *BRANCH IF YES 
7$ ADD #2,R1 ; INCREMENT INDEX 
SOB RO,1$ * CONT INUE 
RTS PC ;RETURN 
23: MOV R1,R2 sGET INDEX 
ADD AMSGINX,R2 *GET ADR OF MESSAGE ADR 
i (R2),3% “GET ADDRESS OF MESSAGE 
3$ . WORD 
MOVB #60,4$ : INIT UNIT NO. BUFFER (ASCII) 
MOVB SYSSIZE(R1),R2 ;GET WORD WITH AVAILABLE UNITS 
MOV #10,R35 ;SET SOB COUNT 
6$: ROR RO ;GET UNITS 
BCC 5$ ;BRANCH IF NOT A UNIT 
TYPE 4$ 
5$: INC 4$ 
S R3,6$ ; CONTINUE 
TYPE SCRLF 
BR 7$ 
4$: -BYTE 0,54,40,0 ; NUMBER, COMMA, SPACE , TERMINATOR 


2s PARRA SAALALALESALELAALALSL AAAS ARARA RAR LAS AR AAA AAA ALARA AAAS SAAD SS SD | 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 
> *$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


> *CALL: 


;* MOV NUM, -(SP) : ;SNUMBER TO BE TYPED 

:* TYPOS :: CALL FOR TYPEOUT 

s* -BYTE N > :N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
z* _BYTE M :2M=1 OR ” 

.* =TYPE LEADING ZEROS 

be £ SOS SUPPRESS LEADING ZEROS 


* 


7 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


> *CALL: 

5° MOV NUM, - (SP) NUMBER TO BE TYPED 
. TYPON SICAL FOR TYPEOUT 
:# $STYPOC-—-ENTER HERE FOR TYPEOUT GF A 16 BIT NUMBER 
** : 

-* MOV NUM, = (SP) ; ;NUMBER TO BE TYPED 


:* TYPOC :;CALL FOR TYPEOUT 


~N 
—, 


RRARAD 


™~ 


~“™N 
w™N NEG 


MMO —-OS 
NOLO 


ARRARAARRRAARRARRAAA 
VOC 


So 
w 


BARE 


RARRAAARRAAAAAARAA 
e 


ooo°o 
PAA 
* 
we eet ee 
o 


SNN NSN NNN 
SERRE SSS 


et ee a ee ee ee ee ee 


oe 
wa 
LO LO LO OO Oe LO i Ln, LO LN LO LO mL LO mL EO EL LO LL LL i LO a LN il ee ll il el 


¥ 


— 
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2=-MAR=80 11 NARY TO OCTAL (ASCII) AND TYPE SEQ 0201 
STYPOS: MOV a(SP) ,-(SP) : :PLCKUP THE MODE 
00000 MOVB  1(SP) _SOFILL LOAD ZERO FILL SWITCH 
MOVB (SP) +. $OMODE +1 ‘NUMBER OF DIGITS TO TYPE 
2 ADD #2, (SP) < ADJUST RETURN ADDRESS 
BR $TYPON 
11 000001 $TYPOC: MOVB #1,S$0FILL ::SET THE ZERO FILL SWITCH 
11 000006 MOVB #6, SOMODE+1 :3SET FOR SIX(6) DIGITS 
11 000005 STYPON: MOVB #5.$OCNT “SET THE ITERATION COUNT 
010346 MOV R3.-(SP) *:SAVE R3 
010446 MOV R4.-(SP) :SAVE R4 
010546 MOV R5.-(SP) : SAVE R5 
116704 000145 MOVB $OMODE+1,R4 °:GET THE NUMBER OF DIGITS TO TYPE 
005404 NEG R4 
062704 000006 ADD #6,RG :: SUBTRACT IT FOR MAX. ALLOWED 
110467 132 MOVB  R4.$OMODE “SAVE IT FOR USE 
116704 125 MOVB  $O0FILL,R4 *:GET THE ZERO FILL SWITCH 
16605 000012 MOV 12(SP) _R5 «PICKUP THE INPUT NUMBER 
3 CLR R3 Zi CLEAR THE OUTPUT WORD 
906105 1$: ROL R5 ; ROTATE MSB INTO ‘'C’’ 
04 BR 3$ DO MSB 
006105 2$: ROL R5 FORM THIS DIGIT 
105 ROL R5 
906103 ROL R5 
010503 MOV R5,R3 
906103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
105367 000076 DECB § S$OMODE : TYPE THIS DIGIT? 
100016 BPL F NO 
042703 177770 BIC #177770,R3 2 GET RID OF JUNK 
tos BNE 4 -:TEST FOR O 
TST R4 SUPPRESS THIS 0? 
1403 BEOQ 5$ :;BR IF YES 
4$: INC R4 = =DON'T SUPPRESS ANYMORE 0'S 
3 000060 BIS #°0.R3 ;3MAKE THIS DIGIT ASCII 
052703 000040 5$: BIS #* —R3 “MAKE ASCII IF NOT ALREADY 
11036 000040 MOVB  R3,8$ *:SAVE FOR TYPING 
1 057436 TYPE 8$ *:GO TYPE THIS DIGIT 
10536 000032 7$: DECB $OCNT ==:COUNT BY 1 
3347 BGT 2$ :3BR IF MORE TO DO 
402 BLT 6$ F DONE 
INC R4 <SINSURE LAST DIGIT ISN'T A BLANK 
7b BR 2$ >:GO DO THE LAST DIGIT 
012605 6$: MOV (SP)+,R5 = =RESTORE RS 
01 MOV (SP) +> RG = =RESTORE R4 
012603 MOV (SP)+~R3 : :RESTORE R3 
016666 000002 000004 MOV 2(SP) 4 (SP) *°SET THE STACK FOR RETURNING 
012616 MOV (SP) +, (SP) 
000002 RTI + RETURN 
000 8$: BYTE 0 “STORAGE FOR ASCII DIGIT 
000 ‘BYTE 0 : TERMINATOR FOR TYPE ROUTINE 
000 S$OCNT: .BYTE 0 *:OCTAL DIGIT COUNTER 
000 S$OFILL: .BYTE 0 ; : ZERO FILL SWITCH 
000000 SOMODE : “ WORD R OF DIGITS TO TYPE 


eerereriittrt tre titttititiititiitt it itt titi titi 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


—! 3 od 


ee ee a a a a a a a ae ae a ee a a a a a a at et a ee ee a et et et ee et ee et ee ee Se ee ee ee ee ee ee ee ee es —" ! 
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-P11 12=-MAR~80 11:27 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0202 


;*THIS ROUTINE IS USED TO CHANGE A oar BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. ue et ON WHETHER THE 
> *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
> *BEFORE THE FIRST ae OF THE NUMBER. LEAD ING ZEROS WILL ALWAYS BE 

: sREPLACED WITH SPACES 


zt MOV NUM, - (SP) :PUT THE BINARY NUMBER ON THE STACK 
** TYPDS <°G0 TO THE ROUTINE 

057444 STYPDS: 
057444 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
057446 010146 MOV R1,-(SP) *=PUSH R71 ON STACK 
057450 010246 MOV R2.-(SP) = =PUSH R2 ON STACK 
057452 010346 MOV R3,-(SP) i STACK 
057454 010546 MOV R5.-(SP) : :PUSH R5 ON STACK 
057456 012746 020200 MOV #20200,-(SP) “SET BLANK SWITCH AND SIGN 

57462 016605 000020 MOV 20(SP) .R5 *:GET THE INPUT NUMBER 

57466 100004 BPL 1$ >:BR IF INPUT IS POS. 
057470 05 NEG R5 *:MAKE THE BINARY NUMBER POS. 
057472 112766 000055 000001 MOVB #'=,1(SP) ::MAKE THE ASCII NUMBER NEG. 
057 005000 1$: CLR RO ;3ZERO THE CONSTANTS INDEX 
057502 012703 057660 MOV #SDBLK ,R3 “SETUP THE OUTPUT POINTER 
057506 112723 000040 MOVB #' ,(R3)+ >:SET THE FIRST CHARACTER TO A BLANK 
057512 005002 2$: CLR R2 >: CLEAR THE BCD NUMBER 
057514 016001 057650 MOV SDTBL(RO).R1 ::GET THE CONSTANT 
057520 160105 3$: SUB R1,R5 > :FORM THIS BCD DIGIT 
057522 002402 BLT 4$ ss & 
057524 005202 INC R2 = INCREASE THE BCD DIGIT BY 1 
057526 000774 BR 3$ 
057530 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
057532 005702 TST R2 :3CHECK IF BCD DIGIT=0 
0575 00 BNE 5$ L THROUGH IF 0 
057536 105716 TSIB ~—_—« CSP?) ; STILL DOING LEADING 0°S? 
057542 106316 5$: ASLB (SP) : MSD? 
057544 103003 BCC 6$ ::BR IF NO 
057546 116663 000001 177777 MOVB 1(SP).-1(R3) ::YES=-SET THE SIGN 
057554 052702 000060 6S: BIS #°0,R2 >=MAKE THE BCD DIGIT ASCII 
057560 052702 000040 7$: BIS »R2 >>MAKE IT A SPACE IF NOT ALREADY A DIGIT 
057564 110223 MOVB _—R2, (R3)+ -:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
057566 005720 TST (RO) + >: JUST INCREMENT ING 

? 000010 CMP RO,#10 iC HE TABLE INDEX 
057574 ° 002746 BLT $ ::G0 DO THE NEXT DIGIT 
057576 BGT 3 ::G0 T 

010502 MOV R5,R2 GET 

057602 64 AR 6$ ::GO CHANGE TO ASCII 
057604 105726 8$: TSTB = (SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 
057606 100003 BPL 9$ “BR IF NO 
057610 116663 177777 177776 MOVB -1(SP),-2(R3)  ::YES==-SET THE SIGN FOR TYPING 
057616 105013 9$: CLRB  —s- (R3) >:SET THE TERMINATOR 
057620 012605 MOV (SP) +,R5 >:POP STACK INTO R5 
057622 012603 MOV (SP)+_R3 “POP STACK INTO R3 
057624 012602 MOV (SP) +.R2 POP STACK INTO R2 
057626 012601 MOV (SP) +°R1 >:POP STACK INTO R1 
057630 012600 MOV (SP) +°RO *:POP STACK INTO RO 


rh 


— 
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2=MAR ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0203 
04400 057660 TYPE SDBLK :NOW TYPE THE NUMBER 
1 000002 000004 MOV  2(SP),4(SP) STADJUST THE STACK | 
12616 MOV (SP)+, (SP) | 
RTI : RETURN TO USER 
S$DTBL: 10000. | 
0017 1000. 
000144 100. 
000012 10. 
000004 SDBLK: .BLKW 4 
SEERA AAARAAKEAARARAEAARAEAEAEKARARHARAAERKRAERRAERARREEARARARAARAEHER EE 
_SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
:*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
: SUNS I GNED OCTAL ASCIZ NUMBER. 
+e MOV #PNTR,=-(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
:* JSR PC, a#v$DB20 *:CALL THE ROUTINE 
oe RETURN «THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
104420 $DB20: SAVREG ::SAVE ALL REGISTERS 
016601 000002 MOV 2(SP).R1 *:PICKUP THE POINTER TO LOW WORD 
012705 060025 MOV #SOCTVL+13.,.R5 ::POINTER TO DATA TABLE 
012704 000014 MOV #12. ,R4 *:DO ELEVEN CHARACTERS 
012703 177770 MOV #*C7,R3 rab 
012100 MOV (R1)+,RO >: LOWER WORD 
012101 MOV (R1)+,R1 : :HIGH 
005002 CLR R2 : : TERMINATOR 
110245 1$: MOVB _R2,-(R5) ==PUT CHARACTER IN DATA TABLE 
010002 RO,R2 =:GET THIS DIGIT 
005304 DEC R4 : 3 COUNT THIS CHARACTER 
003016 BGT 3$ ;3BR IF NOT THE LAST DIGIT 
001414 BEQ 2$ -:BR IF IT IS THE LAST DIGIT 
005205 INC RS >:ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
010566 000002 MOV R5,2(SP) **ASCIZ CHAR. & PUT IT ON THE STACK 
122765 000061 00000% CMPB —s- #61, 3(R5) =LAST NUBER LEGAL? 
002003 BGE 4$ “BRANCH IF YES 
765 000060 000003 MOVB  #60,3(R5) “MAKE IT ZERO 
104422 4$: RESREG = :RESTORE ALL REGISTERS 
000207 RTS PC ; 7 RETURN TO USER 
006203 2$: ASR R3 *:POSITION THE MASK FOR THE LAST DIGIT 
006001 3$: ROR R1 ;;POSITION THE BINARY NUMBER FOR 
006000 ROR RO 3: THE NEXT OCTAL DIGIT 
006001 ROR R1 
006000 ROR RO 
006001 ROR R1 
006000 ROR RO 
040302 BIC R3.R2 ::MASK OUT ALL J 
062702 000060 ADD #°0,R2 *:MAKE THIS CHAR. ASCII 
000744 BR 1$ *GO PUT IT IN THE DATA TABLE 
000016 SOCTVL: -BLKB 14. «RESERVE DATA TABLE 


LRA REREKERERAREEEE EERE REE EERE REERERKRERER ER EKER EERE 


.SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


om 
mr 


et et et a et et et St et et et et et et et et et ee et ee ee ee ee ee ee mm 


SESSEES 


ed aed oe od = 


Wh WAIN WW SS PS Ss So ees 


0 we ee te te te te, te eee ee ae ee te te a a tt a a en te a 


REFER Ew 


wu 
FEESS 
COO NOUS Wh -O 


el el ee eed eed eed od wd ot = = 


WANNA ANIA 


Vw 
Vw 


. 


-P11 


paereniesse 


scrcesterert 


: *SAVE os 
3 *CALL 
58 
#TOP===(+16) 
3% +2---(+18) 
7% +4=--R5 
7% +6=--R4 
3* +8---R3 
;*+10=--R2 
3*+12=--R1 
3 *+14---R0 
SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 


;*RESTORE RO-R5 


> *CALL 


* 
SRESREG: 


RESREG 


RO,-(SP) 


22(SP) ,-(SP) 
22(SP) ,~(SP) 
22(SP) ,=(SP) 
22(SP) ,-(SP) 


(SP)+,22 (SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+, -22(SP) 


(SP)+,RO 
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12-MAR=-80 11:27 SAVE AND RESTORE RO-R5 ROUTINES 


" SAVREG 
; UPON RETURN FROM SSAVREG THE STACK WILL cOOK LIKE: 


;=PUSH RO ON STACK 


:sSAVE PS OF MAIN FLOW 
3zSAVE PC OF MAIN FLOW 
:sSAVE PS OF CALL 
2eSAVE PC OF CALL 


;sRESTORE PC OF CALL 

; sRESTORE PS OF CALL 
ESTORE PC OF MAIN FLOW 

: RESTORE PS OF MAIN FLOW 

= POP STACK INTO R5 


‘POP STACK INTO RO 


SEEKER EEAEEEKERKEKEEKEKKEEKKKEAEKREEERERAEEREEREEERERE 


-SBTTL CONVERT FLOATING BINARY TO OCTAL ASCIZ 
: eTHIS ROUTINE CONVERTS A 32 ae eee NUMBER TO AN OCTAL 


[*ASCIZ STRING IN THE FOLLOWING F 


-* 


** 
** 
** 
** 
** 
** 
** 


WHERE 


W XXX YYY Z2Z2ZZZ 


Ww = SIGN BIT 
X = 8-BIT 
Ys 

i 2 


(RIGHT JUSTIFIED) 


EXPONENT 
FRACTION BITS <S7:51> (RIGHT JUSTIFIED) 
FRACTION BITS <50:35> 


IT IS ENTERED BY A TRAP CALL WITH THE ADDRESS OF THE FLOATING 
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177776 
000060 


ata 
177777 
000002 
177770 
000060 
177775 
177776 
000060 
000040 
000040 
177777 
000002 
177770 
000060 
177775 
177774 
000060 


000040 
000040 
177776 
000060 


000004 000002 
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11:30 
CONVERT FLOATING BINARY TO OCTAL ASCIZ 
THE WORD FOLLOWING THE CALL. 


; *NUMBER IN 
:*1T RETURNS WITH THE ADDRESS 


$FL20: 


1$: 


3$: 


2$: 


SAVREG 
MOV a(SP) ,RO 
ADD #2, ( 
MOV 2(RO) .R1 
MOV 
MOV 
MOVB - 
MOV : 
MOV "R 
BIC #°C7,R3 
ADD JR3 
MOVB  _——R3,-(R4) 
ASHC $,RO 
SOB i$ 
MOV R1,R3 
BIC #°C1,R3 
ADD R3 
MOVB  R3,-(R4) 
MOVB : 
ASHC #-1.RO 
MOV #2,R 
MOV R1,R3 
BIC #°C7,R3 
ADD RS 
MOVB  _R3,~(R4) 
ASHC -3,R0 
S0B 5, 3$ 
MOV *R3 
BIC #°C1,R3 
ADD JR3 
MOVB _R3,—-(R4) 
MOVB 
ASH #-1_R 
MOV #2,R5 
MOV R1,R3 
BIC #°C7_R3 
ADD JR3 
MOVB R3,—-(R4) 
ASH #-3,R1 
SOB 5,2$ 
MOV 1,R3 
BIC #°C3,R3 
ADD RS 
MOVB =(R 
MOVB 
MOVB 
BIC #Ci, 
ADD #60,RO 
VB _—RO, - (RG) 
RESREG 
MOV 
MOV 


(SP) ,-(SP) 
LesPS, 2(SP) 


OF THE ASCIZ STRING ON THE STACK. 


MmAPDRAAASLASAALSAASAALALARAARASLAAARAEA RARER ERR RR ARR SERRA RERA RAR ARRAS ASSAD & | 


:GET en Fy OF DATA 
TURN PC 


;ADJUST R 


BUFFER 
NUMBER TO NEXT . BITS 
INUE FOR 7 DIGITS 


ot 

:GET NEXT DIGI y 
ONLY T 

MAKE THEM ASCII 


STORE IN BUFFER 
;PUT SPACE IN BUFFER 


sSET SOB COUNT 


IN BUFF 
:GET NEXT 3 BITS 
= CONVERT THEM 


“ONLY WANT 1 BIT 
:MAKE IT ASCII 
;PUT IN BUFFER 


:PUT SPACE IN BUFFER 


;GET FIRST 35 BITS OF EXPONENT 
:SET SOB COUNT FOR 2 es 
:GET LSB'S EXPONENT 


SAVE 3 


BIT 
:MAKE THEM ASCII 
STORE IN BUFFER 
:GET NEXT 3 BITS 


: CONT INUE 

:GET LAST 2 BITS _OF BS el 
“MAKE SUR 

SMAKE THEM 
;STORE IN BUFF ER 

:PUT SPACE IN BUFFER 

;GET SIGN BIT (IT WAS EXTENDED) 
sMAKE IT ASC 

;PUT IT IN THE BUFFER 


; SAVE RETURN PC 
SAND RETURN PSW 


E ONLY 2B 
ASCII 


SEQ 0205 


_-> —— - 


on 
mm 
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QkKCE.P11 12=-MAR-80 11: CONVERT FLOATING BINARY TO OCTAL ASCIZ SEQ 0206 
13607 060400 012766 001414 000004 MOV WSFLBUFF.4(SP) =:PUT BUFFER ADDRESS ON STACK 
060406 000006 RIT RETURN 
lay TTT ITIL t tiie t ttt titi iiiiiititiiiiiiiiiiiiiiii iit 
M -SBTTL CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 
1 ig Se THIS ROUTINE CONVERTS A 64 BIT FLOATING NUMBER TO AN OCTAL 
1 **ASCIZ STRING IN THE FOLLOWING FORMAT: 
+o 
; 18 ;* U VVV WWW XAXMXKXK YYYYYY 2222227 
** 
1 18 i WHERE U = SIGN BIT 
1361 * V = B=BIT EXPONENT (RIGHT JUSTIFIED) 
1 a W = FRACTION BITS<57:51> (RIGHT JUSTIFIED) 
13621 :* X = FRACTION BITS <50:35> 
1 ; :* Y = FRACTION BITS <34:19> 
; :* 7 = FRACTION BITS <18:03> 
** 
13625 ;*IT IS ENTERED BY A TRAP CALL WITH THE ADDRESS OF THE FLOATING 
1 6 > *NUMBER IN THE WORD FOLLOWING THE CALL. 
1 ;*1T RETURNS WITH THE ADDRESS OF THE ASCIZ STRING ON THE STACK. 
1 8 {RARER KEKEEREKEEEEREKREREREKKEKRAEERKEKEEKEKKEERKEKEREREREREREREREE 
1 060410 104420 $FLD20: SAVREG 
1 060412 017667 000000 000006 MOV a(SP) 313 :GET ADDRESS OF DATA TO CONVERT 
1 060420 062716 000002 ADD at “ADJUST RETURN PC 
1 060424 104424 FL20 *CONVERT MS 32 BITS 
1 0604 1$: . WORD 
1 060430 012600 MOV (SP)+,RO ;GET ADDRESS OF CONVERTED DATA 
13635 0604 010067 121022 MOV RO, SBUFF IT 
1 00 000041 ADD #41.RO “ ADJUST TO END OF BUFFER 
1 2 105040 CLRB -(RO) “PUT TERMINATOR IN 
1 016701 177756 MOV 1$,R1 “GET ADDRESS OF DATA TO CONVERT 
13639 50 1 000004 ADD #4_R} “ADJUST TO LOWER 32 
1 060454 01210 MOV (R1)+,R2 “SAVE THE DATA 
13641 56 0121 MOV (R1)+_R3 
1 , 000002 MOV #2 RI :SET LOOP COUNT 
1 000005 3$: MOV #5,R4 7SET LOOP COUNT, 
1 4$: MOV R3,R5 “GET LS 32 BITS'OF DATA 
13645 177770 BIC #°C7,RS “MASK 3 BITS 
1 000060 ADD 3 “MAKE THEM ASCII 
1 MOVB  R5.-(RO) *PUT IN BUFFER 
1 177775 ASHC #=3,R2 “GET NEXT 3 BITS 
1 S0B R4,4$ * CONT INUE 
13650 MOV R3,R5 “GET LS 32 BITS 
13651 177776 BIC #°C1,R5 “ONLY WANT 1 BIT 
1 32 000060 ADD #60,R5 “MAKE IT ASCII 
1365 MOVB _R5,-(RO) “PUT IN TABLE 
13654 000040 MOVB = #40,-(RO) “PUT SPACE IN TABLE 
13655 177777 ASHC #-1.R2 
1 56 SOB R1,3$ :CONVERT NEXT 16 BITS 
1365 RESREG 
1 58 MOV (SP) ,=(SP) :ADJUST STACK 
1365 000004 000002 MOV 4 (SP), -2(SP) :10 RETURN WITH ADDRESS 
1 120702 000004 MOV $BUFF 4 (SP) F BUFFER ON STACK 
1 RTT RETURN 
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RT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 


5 RRR RARER RRR RE RRR RAERER EAR RARER RR ERER EEE 
-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


;*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
: WITH A RANGE OF 0 TO 2(+35)-1. 


SEQ 0207 


* JSR PC, SRAND ::CALL THE ROUTINE 
* RETURN : RETURN HERE THE RANDOM 
;* : 7NUMBER WILL BE IN 
;* 7 SHINUM, SLONUM 
SRAND : 
MOV RO,-(SP) ;:PUSH RO ON STACK 
MOV R1,-(SP) = :PUSH R1 ON STACK 
MOV R2,-(SP) ::PUSH R2 ON STACK 
MOV $L RO ::SET RO WITH L 
MOV SHINUM,R1 ::SET R1 WITH HIGH 
MOV #-7, *: SHIFT 
1$: ASL RO th a RO LEFT AND 
ROL R1 TATE CARRY INTO R1 AND 
INC R2 + = CHECK FOR ary 
BNE 1$ : = CONTINUE SHIFT LOOP 
we SLONUM RO 3 NUTBER IO MAKE X 129 
ADD SHINUM,R1 :;ADD NUMBER TO MAKE X 129 
ADD #1057,R0 ::ADD LOW CONSTANT 
ADC R1 :;PROPOGATE CARRY 
ADD #647401,R1 ::ADD HIGH CONSTANT 
MOV RO, SLONUM :2SAVE RO 
MOV R1,SHINUM ZSAVE R1 
MOV (SP) +,R2 ; sPOP STACK INTO R2 
MOV (SP)+,R1 :POP STACK INTO R1 
(SP)+,RO 


; sPOP STACK INTO RO 
URN 


PITIIITIT TTI TT TTI TT ILI TiLiT LTTE LL LLL LE LLL iks 


“SBTTL FLOATING POINT te GENERATOR 
THIS ROUT NERATES TWO RANDOM FLOATING POINT NUMBERS 


se 
g 


* IN EITHER SINGLE OR DOUBLE PRECISION. FOR SINGLE PRECISION 
* ARE STORED IN $TMPO . DOUBLE PRECISION 
:* NUMBERS ARE STORED IN STMPO AND $ 
* IN EITHER SINGLE OR DOUBLE THE EXTENDED EXPONENT IS STORED 
* IN $REGO AND $REG1. 
ff REAR EREARAEARERAREEEREEERERERKEKRKEREREKEKKEREKRAREKERAKRRARRAEREKEEER 
FL TDBL : MOV #2, SOBDBL :SET LOOP FOR 2, FOUR WORD NUMBERS 
FLTSGL: MOV SOBDBL ,RO =SET WORD LENGTH LOOP 

MOV ASTMPO.R2 “GET ADDRESS TO STORE WORDS IN 
2$: MOV #2,R1 “SET NUMBER OF WORDS TO 2 
1$: JSR PC, GET 

CMP #2,R1 “FIRST TIME? 

BEQ 3$ :BRANCH IF Y 

CMP #2, SOBDBL “DOUBLE PRECISION? 

BEQ 4$ “BRANCH IF Y 
3s: MOV SHINUM,R3 =GET EXPONENT PART 

BIC #177,R3 “CHECK FOR MINUS ZERO 


Om 
mr 
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QKCE P11 12-MAR~ FLOATING POINT NUMBER GENERATOR SEQ 0208 
136 73% 022703 100000 CMP #B1T15,R3 
1% 7 17 BEQ 1$ :BRANCH IF MINUS ZERO 
1% 7% 120654 4$: MOV SHINUM,(R2)+  § ;SAVE HINUM 
1 7. 16722 120646 MOV SLONUM,(R2)+ § ;SAVE LONUM 
1 75 1 S08 R1,1$ = CONTINUE 
1 7 770 S08 RO,2$ =CONTINUE FOR DOUBLE PREC 
1% 12746 001352 MOV #STMPO,-(SP) :PUT ADDRESS OF NUMBER ON STACK 
1% 7 01 746 001002 MOV #1002,-(SP) =PUT CONTROL WORD ON STACK 
1% 7 767 000002 000022 CMP #2, SOBDBL “DOUBLE PREC? 
136 4 190 BNE 5$ :BRANCH IF NO 
136 776 012716 001004 MOV #1004, (SP) =CHANGE CONTROL WORD 
1% 1002 767 000012 5$: JSR PC, EXPEXT : CALCULATE EXT EXPONENTS 
1% 1 012767 000001 000002 MOV #1, SOBDBL : INIT SOBDBL FOR SINGLE PREC 
136 961014 009207 RTS PC “RETURN 
1% 1016 000001 SOBDBL: .WORD 1 
1 ° {RARER KEEREEREEEKKEKEEKEKEREEKEKERKEEKKKRREKKEKEEEHEKEKKKH 
13 SBTTL FLOATING POINT EXPONENT EXTENSION 
1 701 : THIS ROUTINE CONVERTS THE ACTUAL EXPONENT OF A FLOATING POINT 
1 é ie NUMBER INTO AN ACTUAL EXPONENT OF 200 AND AN EXTENDED 
137 zs EXPONENT EQUAL TO THE DIFFERANCE BETWEEN THE ORIGINAL 
NM ‘ zs ACTUAL EXPONENT AND 200. 
"* 
1 yt THE ROUTINE IS ENTERED WITH A CONTROL WORD ON THE STACK. 
1370 :* BIT 15 OF THE CONTROL WORD INDICATES WHETHER THE NUMBER 
1 708 * IN MEMORY (<15>=0) OR IN AN ACCUMULATOR (<15>=1). 
137 * IF THE R IS IN AN ACCUMULATOR, BITS <9:8> INDICATE 
13710 ie THE ACC IF THE NUMBER(S IN MEMORY, 
13711 zt TS <9 ICATE NUMBER OF NUMBE CONVERT AND 
1 re ze BITS <2:0> INDICATE THE WORD LENGTH OF THE NUMBER(S). 
1371 ie N THE CONVERSION, THE SS OF THE 
at 3s FIRS] ton TO CONVERT IS ALSO ON THE STACK (PRECEDING 
*® 
1 ay | pa pabudabsSTeneteriaaes ihbikachipddabadicantuuieuatavevesteneres 
1371 061020 012605 EXPEXT: MOV (SP)+,R5 :SAVE RETURN PC 
13718 1 012600 MOV (SP)+,RO “GET CONTROL WORD 
1371 1024 100437 BM] 1$ :BRANCH IF ACC CONVERSION 
1 1 012601 MOV (SP)+,R1 -GET START ADDRESS 
13721 061 162700 000400 SUB #400,RO 
1 é 1 012702 001352 MOV A#STMPO,R2 :GET OFFSET FROM $TMPO 
1 1 9 160102 SUB R1,R2 
13724 061 005402 NEG 
13725 061 4 2 ASR 
1 1 0@ 001326 ADD #SREGO,R2 :GEN ADDRESS OF EXT WORD 
1 061 52 01110 3$: MOV (R1) RS GET DATA 
1 1054 042703 100177 BIC #100177,R3 =GET EXPONENT 
1 1 072327 177771 ASH #-7,R =RIGHT JUSTIFY EXPONENT 
1 1064 2 SUB #200,R3 =CONVERT TO 2°S COMPLIMENT 
13731 1070 010312 MOV R3, (R2) “ADD TO EXTENDED EXPONENT 
1 1022 042711 077600 BIC #77600, (R1) “MAKE ACTUAL 
1 1076 052711 040000 BIS #B1T14.(R1) :EXPONENT 200 
1 1102 162700 000400 SUB 400,R0 ‘ANY MORE WORDS? 
13735 061106 100435 BM] : CH IF NO 
13 061110 110003 MOVB _RO.R3 *GET WORD LENGTH 
1 061112 006303 ASL R3 
13738 061114 0603017 ADD R3,R1 =SELECT NEXT NUMBER ADDRESS 
13739 061116 062702 000002 ADD #2,R2 “SELECT NEXT EXTENDED ADDRESS 





ee 
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CEQKCE.P11 12=MAR-B0 11:27 FLOATING POINT EXPONENT EXTENSION SEQ 0209 
13740 061122 000753 BR 3$ : CONT INUE 
13761 “ACCUMULATOR CONVERSION 
1374 0611 4 07 37 177776 1$: ASH #-2,RO :GET ACCUMULATOR NUMBER 
1374 11 177477 BIC #177677,RO : 
137 11 1 g MOV RO,R2 : GENERATE 
13745 061136 0 177773 ASH 4-5 R2 sADDRESS OF 
1 746 114 3 001462 ADD #$ACO,R2 =EXTENDED EXPONENT 
1374 1146 042767 000300 000004 BIC #300,5$ :GENERATE INSTRUCTION 
1 748 1154 7 000000 BIS RO, 5$ -TO GET EXPONENT 
1374 1160 175003 5$: STEXP  ACO,R3 “GET EXPONENT 
750 06116¢ 00500 ADD RS, (R2) -ADD TO EXTENDED EXPONENT 
1 7¢ 061166 042767 000300 000004 BIC #300,4$ :GENERATE INSTRUCTION 
1 733 1174 050067 000000 BIS RO.4$ -TO LOAD EXPONENT BACK TO ACC 
13754 061 176403 4$: LDEXP R3,ACO “LOAD EXPONENT OF 200 
13755 061202 010546 2$: MOV R5,-(SP) *RESTORE RETURN PC 
13756 061 000207 R PC “RETURN 
1 75 5 FREAK EREEKEKEEREEEEKEKKKEKARRKEKEKKEEREKKEKEEEKEEREKEKEKKEREEKEKEEKE 
(1) 
(1 .SBTTL POWER DOWN AND UP ROUTINES 
(1) -POWER DOWN ROUTINE 
(1) 061 012737 061334 000024 $PWRDN: MOV WSILLUP ,@#PWRVEC ::SET FOR FAST UP 
(1) 061 14 012737 000340 000026 MOV #340, @4PWRVEC+2 ::PRIO:7 
(3) 1222 010046 MOV RO,-(SP) - PUSH RO ON STACK 
(3) 061 4 010146 MOV R1,-(SP) -=PUSH R1 ON STACK 
(3) 1226 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
(3) 061 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
(3) 061 2 010446 MOV R4,-(SP) = :PUSH R4 ON STACK 
(3) 1 010546 MOV RS5,-(SP) > :PUSH RS ON STACK 
(1) 1 010667 000076 MOV SP, SSAVR6 ::SAVE SP 
(1) 1 42 012737 061254 000024 MOV A#SPWRUP ,a#PWRVEC ::SET UP VECTOR 
(1) 1250 000000 HALT 
(1) 061252 000776 .-2 + HANG UP 
(1) =POWER UP ROUTINE 
(1) 061 016706 000060 $PWRUP: MOV SSAVR6, SP >:GET SP 
(1) 061 005067 000054 CLR SSAVR6 =:WAIT LOOP FOR THE TTY 
(1) 061 005867 000050 1$: INC SSAVR6 >:WAIT FOR THE INC 
(1) 061 001375 BNE 1$ 7:0F WORD 
(3) 061 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
(3) 0617 012604 MOV (SP)+,R4 ::POP STACK INTO R& 
(3) 061 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
(3) 061 012602 MOV (SP)+,R2 -:POP STACK INTO R2 
(3) 061 012601 MOV (SP)+,R1 -:POP STACK INTO R1 
(3) 0617 01 $00 MOV (SP)+,RO ::POP STACK INTO RO 
(1) 0617 012737 061206 000024 MOV A#SPWRDN,@4PWRVEC ::SET UP THE POWER DOWN VECTOR 
(1) 1 012737 000340 000026 MOV #340, aMPWRVEC+2 ::PRIO:7 
(1) 1 104400 TYPE -REPORT THE POWER FAILURE 
(1) 061 061342 SPWRMG: .WORD $POWER - :POWER FAIL MESSAGE POINTER 
(1) 061 012716 MOV (PC) +, (SP) * RESTART AT START 
(1) 067 003612 S$PWRAD: .WORD START = RESTART ADDRESS 
(1) 061 000002 RTI 
(1) 061 000000 $ILLUP: HALT ::THE POWER UP SEQUENCE WAS STARIED 
(1) 0617 000776 .-2 *: BEFORE THE POWER DOWN WAS COMPLETE 
(1) 061 000000 SSAVR6: 0 ::PUT THE SP HERE 
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005015 047520 042527 S$POWER: .ASCIZ <15><12>° POWER’' 
000122 pee 
TTI ITT ttt ttt iit ttt titi i tii iitiiitii iii i titi iti titi iii ii is 
-SBTTL TTY INPUT ROUTINE 
:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** . 
:* RDCHR 3; INPUT A SINGLE CHARACTER FROM THE TTY 
7* RETURN HERE 7; CHARACTER IS ON THE STACK 
s* :;;WITH PARITY BIT STRIPPED OFF 
011646 SRDCHR: MOV (SP) ,~(SP) :;PUSH DOWN THE PC 
016666 MOV 4(SP) ,2(SP) 7: SAVE THE PS 
105777 1$ TSTB asTKS : ;sWAIT FOR 
100375 BPL 1$ ::A CHARACTER 
117766 MOVB  @STKB,4(SP)  ; ;READ THE TTY 
042766 BIC M#*C<177>,4(SP) ;:;GET RID OF JUNK IF ANY 
000002 RTI ::GO BACK TO USER 
5 FERRER EREEERKKEEKEEKKEERKAKKEEERKEKEEEKEEEEERKKKEKEEEE 
oe ROUTINE WILL INPUT A STRING FROM THE TTY 
:* : 
;* RDLIN 32 INPUT A STRING FROM THE TTY 
3* RETURN HERE : ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;* 7; TERMINATOR WILL BE A BYTE OF ALL O'S 
010346 SRDLIN: MOV R3,-(SP) : SAVE R3 
012703 1$: MOV ASTTYIN,RS :;GET ADDRESS 
oee/ oe 2$ CMP #STTYINeS. .RS ; ;BUFFER FULL? 
101405 BLOS 4$ 77BR IF YES 
104412 RDCHR ::GO READ ONE CHARACTER FROM THE TTY 
112613 MOVB (SP)+,(R3) ::GET CHARACTER 
122713 10$: CMPB #177, (R3) ::1S IT A RUBOUT 
001003 BNE 3$ 3:SKIP IF NOT 
104400 43: TYPE SQUES :: TYPE A ‘?° 
000763 BR is =:CLEAR THE BUFFER AND LOOP 
111367 3$: MOVB (R3) ,9$ ::ECHO THE CHARACTER 
104400 TYPE : 
122723 #15, (R3)+ :: CHECK FOR RETURN 
001356 BNE 8 IF NOT RE 
105063 CLRB -1(R3) : CLEAR RETURN (THE 15) 
104400 TYPE ,SLF 7; TYPE A LINE FE 
012603 MOV (SP) +,R3 : :sRESTORE R35 
011646 MOV (SP) ,-(SP) ; :ADJUST THE STACK AND PUT ADDRESS OF THE 
016666 000004 000002 MOV 4(SP).2(SP) s3 FIRST ASCII CHARACTER ON IT 
012766 061514 000004 MOV #STTYIN,4(SP) 
000002 RTI : sRETURN 
000 9$: BYTE 0 :: STORAGE FOR ASCII CHAR. TO TYPE 
000 -BYTE O : TERMINATOR 
000010 STTYIN: .BLKB 8. : sRESERVE 8 BYTES FOR TTY INPUT 
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CEQKC 
CEQKCE .P11 12-MAR 11:27 DECIMAL NUMBER FROM THE TTY SEQ 0211 
(1) :*THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
(1) :*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL TEHARACTERS 
(1) a READ A **?"* FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
(1) * THE COMPLETE MSBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
(1) + USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
ot; : sPOSITIVE 32767 TO NEGATIVE 32768. 
** 
(1) :* RDDEC :;READ A DECIMAL NUMBER 
1) +i RETURN HERE : :NUMBER IS ON TOP OF THE STACK 
(1) 
(1) 061524 011646 SRDDEC: MOV (SP) ,-(SP) ; PROVIDE SPACE FOR 
(1) 061526 016666 000004 000002 MOV LesPs 2(SP) ::THE INPUT NUMBER 
(3) 0615 010046 MOV RO,-~(SP) : PUSH RO ON STACK 
(3) 061536 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
(3) 0661540 010246 MOV R2.~(SP) : PUSH R2 ON STACK 
(1) 061542 104414 1$: RDLIN ;;READ AN ASCIZ LINE 
(1) 061544 012600 MOV (SP)+,RO : sADDRESS OF 1ST CHAR. 
(1) 061546 010067 000120 MOV RO,6$ :zSAVE INCASE OF BAD INPUT 
(1) 061552 005046 CLR - (SP) :;CLEAR DATA WORD 
(1) 061554 005002 CLR R2 :: SIGN SET POSITIVE 
(1) 061556 122710 000055 CMPB #'=, (RO) :;:;SEE IF A MINUS SIGN WAS TYPED 
(1) 061562 001001 BNE $ 3;:BR IF NO MINUS SIGN 
(1) 061564 112002 MOVB (RO)+,R2 72SAVE FOR LATER USE 
(1) 061566 112001 2$: MOVB (RO)+,R1 :;PICKUP THIS CHARACTER 
(1) € 1870 001424 BEQ 3$ + GET OUT IF ZERO 
(1) €.1572 122701 000060 CMPB #°O,R1 sMAKE SURE THIS CHARACTER 
(1) 061576 003032 BGT 5$ =: 1S A DIGIT BETWEEN 0 & 9 
(1) 061600 122701 000071 CMPB #°9.R1 
(1) 061604 002427 BLT 
(1) 061606 032716 170000 BIT #°C7777, (SP) : DON'T LET NUMBER GET TO BIG 
(1) 061612 001024 BNE 5$ : BR IF NUMBER WOULD OVERFLOW 
(1) 061614 006316 ASL (SP) 
(1) 061616 011646 MOV (SP) ,-(SP) 2 SAVE FOR LATER 
(1) poles 006316 ASL (SP) 37%4 
(1) 061622 006316 ASL (SP) 328. 
(1) 061624 062616 ADD (SP)+, (SP) 33*10. 
(1) po 1ee8 102416 BVS 5$ : ;OVERFLOW ISN'T ALLOWED 
(1) 0616 162701 000060 SUB #°O,R1 +:STRIP AWAY THE ASCII JUNK 
(1) 061634 060116 ADD R1, (SP) + ADD IN THIS DIGIT 
(1) 061636 102412 BvS S$ = OVERFLOW ISN'T ALLOWED 
(1) 061640 752 2$ 
(1) 061642 702 3$: TST R2 CHECK IF NUMBER IS NEG 
(1) 061644 001401 BEQ 4$ :;BR IF NO 
(1) 061646 005416 NEG (SP) 7: YES--NEGATE THE NUMBER 
(1) 061650 012666 000012 4$: MOV (SP)+,12(SP) : ;SAVE THE RESULT 
(3) 061654 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 061656 012601 MOV (SP)+, “RI ; POP STACK INTO R1 
(3) 061660 012 (SP)+, “RO ::POP STACK INTO RO 
oe 061662 2 RTI a4 URN 
(1) 061664 005726 5$: TST (SP) + ;; CLEAN PARTIAL NUMBER FROM STACK 
(1) 061666 105010 CLRB (RO) ::SET A TERMINATOR 
(1) 061670 104400 TYPE asty HE INPUT UP TO BAD CHAR. 
(1) 061672 6S: .WORD 0 ;:POINTER GOES HERE 
(1) 061674 104400 001406 TYPE ,SQUES 2 oft! CR BV Fe 
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CEQKCE .P11 12-MAR-80 11:27 A DECIMAL NUMBER FROM THE T SEQ 0212 
(1) 061700 000720 BR 1$ ; TRY AGAIN 
13760 PITTI TIT TTII TIT TILT L TTT iti it iti iti t iti t iii iti i iii 


-SBTTL ROUTINE TO SIZE MEMORY 


7 *CALL: 
“es i PC,$SIZE 
: ASLSTAD hone CONTAIN 
: WITH KT11 OPTION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
WI THOUT KT11 OPTION -- LAST = ADDRESS OF AVAILABLE MEMORY 
: s$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 
= *$KT11 IS THE MEMORY MANAGEMENT KEY 
:*BITO7 = 0 DON'T USE MEMORY MANAGEMENT 
: SETUP BEFORE T 


“hel MUST BE HE CALL 
;*BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION 
ee oh ERMINED BY ROUTINE 


: THIS ROUTINE SUPPORTS PDP 11/74. 

:*IF ACTUAL MEMORY IS LESS Lang THAT INDICATED BY a REGISTER 

; SAND A REFERENCE IS MADE TO A MEMORY ADDRESS THAT IS GREATER THAN 
*ACTUAL MEMORY BUT LESS THAN SIZE REGISTER (INDICATED), THEN A 

‘ eMEMORY REFERENCE TIMEOUT TO VECTOR 114 WILL OCCUR. 


061702 010046 $SIZE: MOV RO,-(SP) ::SAVE RO ON THE STACK 
061704 010146 MOV R1,-(SP) :: SAVE R1 ON THE STACK 
061706 010246 MOV R2,-(SP) ;3SAVE R2 ON THE STACK 
1710 010346 MOV R3,~(SP) >SAVE R3 ON THE STACK 
061712 013746 000004 MOV @YERRVEC,-(SP) ::SAVE PRESENT ERROR VECTOR PS & PC 
061716 013746 MOV QFERRVEC+2,-(SP) 
061722 013746 000114 MOV avis, ~($P) ::SAVE PRESENT PARITY VECTOR PS & PC 
061726 013746 000116 MOV av116.-( 
0617 01 MOV SP,RO ::SAVE THE STACK POINTER 
061 013737 177776 000006 MOV BMPS, QFERRVEC +2 -:SET ERRVEC PS TO PRESENT PS 
1742 012701 003776 MOV #3776,R -:SETUP ADDRESS 
061746 105727 TSTB ~—s-« (PC) + -:USE MEMORY MANAGEMENT? 
061750 000200 $KT11: .WORD 200 ;7SET TO USE MEMORY MANAGEMENT 
061752 100063 BPL SCORE “BR IF NO 
061754 O12 7 062120 000004 MOV #SKTNEX ,@MERRVEC :;SET FOR TIMEOUT 
061762 005737 177572 TST aysR ::KT11 ARE YOU THERE? 
1766 052767 100000 177754 BIS #100000,$KT11 ;:YES--SET KT11 KEY 
1774 005046 CLR -(SP) >: INITIALIZE FOR "PAR'' LOADING 
1776 012702 172340 MOV #KIPARO,R2 ;;ADDRESS OF FIRST ‘PAR’ . 
Oise 00001 MOV #*D8 RS + sLOAD EIGHT ‘'PAR.'S** AND EIGHT 'PDR.'S 
12762 077406 177740 1S: MOV #77406 , -40(R2) :3PDR = 4k, UP, READ/WRITE 
14 011622 MOV (SP), (R2)+ iL AR’ 
1g 716 000200 ADD #200, (SP) SF TE FOR NEXT ' 
077307 SOB R3,1$ *:LOOP UNTIL ALL Elen me LOADED 
4 012742 177600 MOV m1 77600, -(R2)  ::SETUP KIPAR7 FOR I/O 
00504 CLR (R2) :: SETUP KIPAR6 FOR TESTING 
32 012737 062050 000004 MOV #2$.@HERRVEC = CATCH TIMEOUT IF NO SR3 
0 012737 000020 172516 MOV #20, a4SR3 ;7ENABLE 22-BIT ADDRESSING 
000401 BR HIS PDP-11 HAS A SR3 REG. 
50 022626 2$: CMP (SP)+, (SP) + 77 CLEAN OFF THE STACK=-NO SR3. 
52 005237 «177572 3$: INC avsRo ON ME MANAGEMENT 
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; TURN MORY 
56 012737 062110 000004 MOV #$KTOUT ,@#ERRVEC :;SET FOR TIME OUT 
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a Le ,a4114 2 3SET FOR + na TIMEOUT TO 114 
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0620 TST oe ON 
16207 0 ADD #40, (R2) ::MAKE A 1K STEP 
96210 Meee CMP @*KIPAR7.(R2)  =:LAST ONE? 
962106 BHI 4$ -:NO=-TRY IT 
6211 $KTOUT: MOV (R2) .R2 ::GET LAST BANK+1 
1621 177572 cLR aFSRO 7:TURN OFF MEMORY MANAGEMENT 
.. © 
1621 2C 100000 177622 S$KTNEX: BIC #100000. $KT11 KT11 NON-EXISTENT 
0621 062156 000004 $CORE: MOV #$CROUT, aMERRVEC’ TESeT FOR TIMEOUT 
0621 CLR R2 BANK 
621 36 004000 1$: ADD #4000,R1 : INCREMENT BY 1K 
16214 000040 ADD #40,R2 =: 1K STEP 
+”. 146 TST (R1) >: TRAP ON TIME OUT 
0621 177776 CMP #177776,R1 *:LAST ONE 
162154 BNE &, ::NO=-TRY AGAIN 
a’: 136 004000 $CROUT: SUB #4000,R1 
621 000040 $SIZEX: SUB #40,R2 ::DROP BACK 
Dé 186 MOV RO, SP > RESTORE THE STACK 
0621 116 MOV (SP)+,a#116 «RESTORE PARITY VECTOR 
162174 114 MOV (SP) +, a1 
0€ MOV (SP) +, -@MERRVEC 2 ::RESTORE ERROR VECTOR 
. 000004 MOV (SP)+. 
162210 000050 MOV RT SLSTAD ::LAST ADDRESS 
162214 000046 MOV R2,$LSTBK ::LAST BANK 
62 MOV (SP) +,R3 : :RESTORE R3 
D622 2 MOV (SP)+,R2 RESTORE R2 
M2224 MOV (SP)+,R1 = =RESTORE R1 
6 Moy (SP)+,RO « CRESTORE RO 
e. 
162232 000001 177744 $MTMOUT: BIT $#BITO,@#MEMERR ;:MAKE SURE TRAP TO 114 IS 
062240 BNE 1$ ::DUE TO MEMORY REF TIMEOUT 
*:IF NOT, IS IT AN ABORT? 
42 100000 177744 BIT #B1T15,a4MEMERR ::CPU ABORT? 
5 BNE 1$ sit YES, EXIT 
52 RTI :IF NOT, CONTINUE 
34 177777 177744 1$: MOV aa saAMEMERR ==CLEAR THE MEM ERROR REG 
069264 SLSTAD: .WORD 0 ::CONTAINS THE LAST ADDRESS 
062266 $LSTBK: .WOR -:CONTAINS THE LAST BANK 
SF EER AAKKEEKEEKEKKEAEAKEREEEKEEEKREKEREKKK KRKEEKKEKRKKKKKKKK&KkKk&k&K&K&kE&KKE 
.SBTTL TRAP DECODER 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
=*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
>*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
-*GO TO THAT ROUTINE. 
062270 010046 STRAP: MOV RO,-(SP) : SAVE RO 
72 016600 000002 MOV 2(SP) .RO -:GET TRAP ADDRESS 
b6¢ 76 005740 TST -(RO) : :BACKUP BY 2 
111000 MOVB _ (RO) ,RO -:GET RIGHT BYTE OF TRAP 
062302 016000 062310 MOV STRPAD(RO).RO ;; INDEX TO TABLE 
000200 RTS RO -=GO TO ROUTINE 








I 1 
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CEGKCE .P11 12—-MAR~ 11:27 TRAP DECODER SEQ 0214 
(3) 
? -SBTTL TRAP TABLE 
(5) -*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
; ; + «BY THE **TRAP’’ INSTRUCTION. 
; j ROUTINE 
(5) STRPAD: 
(5) 056410 STYPE 3; CALL=TYPE TRAP+0(104400) TTY TYPEOUT ROUTINE 
(5) 057242 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(5) 057216 STYPOS ;;CALL=TYPOS TRAP+4 (104404) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(5) 5725 3; CALL=TYPON TRAP+6(104406) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 057444 STYPDS ;;CALL=TYPDS TRAP+10(104410) TYPE DECIMAL NUMBER (WITH SIGN) 
(3) 061352 C 3; CALL=RDCHR TRAP+12(104412) TTY TYPEIN CHARACTER 
(5) 0614 LI 3: CALL=RDLIN TRAP+14(104414) TTY TYPEIN STRING ROUTINE 
(5) 061524 SRDDEC ;CALL= TRAP+16(104416) READ A DECIMAL NUMBER FROM TTY 
(3) 06002 SSAVREG ;;CALL=SAVRE TRAP+20(104420) SAVE RO-RS ROUTINE 
(3) SRESREG ;;CALL=RESREG TRAP+22(104422) RESTORE RO-R5S ROUTINE 

1 ree 060122 S$FL20 ;;CALL=FL20 TRAP+24 (104424) 

1376 060410 SFLD20 ;;CALL=FLD20 TRAP+26 (104426) 

1 764 J EERE EKEREREEREEREEEEEERKEEKEAEKREEKEKEKKEREKEARREKEEEREKKKEKKKER 

13765 * SBTTL UNIBUS EXERCISER INITIALIZATION ROUTINE 

13766 :*THIS ROUTINE INITIALIZES THE BASE ADDRESS FOR THE 

ee ; *UNIBUS EXERCISER AND LOADS UP THE EXERCISER REGISTERS. 

1 768 { EERAEKAEREREKAEREREEEEEEREKKKEKRKKEKEEREEKEEKREREKEKEEEKREREKEEREEEK 

13769 062340 012767 002414 117424 (BE INIT: :MOV ASERRTB,UBESAV ;BASE ADDRESS OF UBE TRANSFER 

13 2346 005067 117422 CLR UBESAV+2 

1307) 352 012767 002414 117416 MOV WSERRTB UBEADR s;BASE ADDRESS OF UBE TRANSFER 

1 are 062360 005067 117414 CLR UBEADR+2 

1377 

13774 

13775 7;SET UP THE UBE AND START IT 

13776 062 012702 002340 MOV AUBE TBL ,R2 ;GET ADDRESS OF UBE TABLE 

13777 062370 005072 000010 CLR a10(R2) ;CLEAR ALL ERRORS 

1 re 062374 012772 053434 000012 MOV MUBESRV,@12(R2) ;SET UP UBE VECTOR 

1 062402 012772 000340 000014 MOV #PR7,a14(R2) :SET UP UBE VECTOR PSw 

1 A 062410 012732 172400 MOV #172400,a(R2)+ :SET CC FOR 1.3K WORD TRANSFER 

1 1 -UBE IS DOING BYTE TRANSFERS 

1 ere 012746 3 MOV #3,~-(SP) :PUT DEVICE ID IN STACK 

1 4 012746 001776 MUBEADR,-(SP)  ;PUT ADDRESS OF eer SI CAL BA ON STACK 

1 424 004737 063022 JSR PC ,@4GE T MAP REGIS 

13785 4 013732 001776 MOV @FUBEADR,@(R2)+ :LOAD UBE BUS ADDR ESS 

1 ree 434 013732 000 MOV @FUBEADR+2, 9(R2) +: LOAD ADR BITS 16 & 17 

1378 440 052737 000040 172516 BIS #40, a4SR3 :ENABLE MAP 

1 2446 000207 RTS PC RETURN 

13 = KREKKKKKKEAARAAKAEKAKEKRAEKAKAKREKEKKERERKEAAAKAKAAKEAKAAKRAKREKREEAKREREE 

13790 -SBTTL CONVERT UNIBUS VIRTUAL ADDRESS TO ih ADDRESS 

13791 :* THIS ROUTINE CONVERTS THE wey OF See TIONS 

13036 3* “ERRBA+2°" FROM A VIRTUAL 18-817 ADDRESS 

1379 ;* TO A PHYSICAL 22-BIT ADDRESS AS MAPPED BY THE APPROPRIAT 

13794 :* MAP REGISTER. THE 22-BIT ADDRESS IS STORED IN LOCATIONS 

13795 :* *'PA2116'" AND ‘'PA1500°". 

13796 TTT TTL TTT TELL TLE LEE kde 

13797 062450 104420 PHYMAP: SAVREG | 

13798 062452 013703 002002 MOV @4ERRBA,R3 :GET BUS ADDRESS <15:00> 
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CEQKCE.P11 
1 00 MOV @#ERRBA+2 7GET BUS ADDRESS <17:16> 
136 175974 BIC #177774 ask? ; 
138 000040 172516 BIT WB1TS.a4MMR3 — :MAP ON? 
138 BNE 1 :BRANCH IF YES 
1386 001574 MOV R3,a#PA1500 [PHY ADR=BUS ADR 
138C 001576 MOV R2, a#PA2116 
138C BR MAPEND 
13806 1$: MOV R3,R5 :SAVE ADR BITS <15:00> 
138¢ 000005 ASHC 5.R :GET MAP REG SELECT BITS 
13808 000003 BIC #3,Re 
13805 170 ADD FORM ADDRESS OF MAP REG 
13810 001574 (R2)+,a#PA1500 :GET CONTENTS OF MAP REG LO 
13811 001576 R2 116 GET CONTENTS OF MAP REG HI 
13 af. 160000 BIC #1 R5 [FORM PHYSICAL ADDRESS 
1381 001574 ADD R5, a#PA1500 : THAT TIMED OUT 
13814 001576 ADC @APA2116 : 
13815 MAPEND: RESREG 
816 RTS PC 
1 4 { EAAAREERRAKKAAEEREEEEEREEREKKERKEKKKKEEEEREREKERERERKERAREREKERER 
1381 "S$BTTL CONVERT A VIRTUAL ADDRESS TO A PHYSICAL ADDRESS 
1382C :* THIS ROUTINE CONVERTS A 16-B1T VIRTUAL ADDRESS TO A 
13821 :* 22-BIT PHYSICAL ADDRESS. THE VIRTUAL ADDRESS IS 
138 g :* ASSUMED TO BE IN LOCATION 'VADR’' AND THE PHYSICAL 
323 zs ADDRESS IS PLACED IN LOCATIONS ‘PA2116'' AND ‘PA1500"’. 
. ;* 
13825 :* IF MEMORY MANAGEMENT IS OFF THE PHYSICAL ADDRESS IS 
13826 :* GENERATED BY SUBTRACTING THE CONTENTS OF LOCATION 
13827 :* “FACTOR’’ FROM THE VIRTUAL ADDRESS. THIS LOCATION 
13828 :* CONTAINS THE BYTE OFFSET BETWEEN THE RELOCATED CODE 
B25 :* AND THE NON-RELOCATED CODE. 
° ;* 
138 ie IF MEMORY MANAGEMENT IS ON, THE CONTENTS OF THE 
138 7” APPROPRIATE PAR REGISTER IS ADDED (AFTER ADJUSTMENT ) 
138 : TO THE LEAST SIGNIFICANT 13 BITS OF THE VIRTUAL ADDRESS. 
1 4 be POUR Seis, Bere 0 Be cet opp Nt Dre be Re lll BN 4 toes te ances seg 
138 62556 104420 CNVADR: SAVREG 
138 62560 013703 001572 MOV @AVADR RB ;GET VIRTUAL ADDRESS TO CONVERT 
138 62564 105737 001601 TSTB © a#MMON :IS MEMORY MGMT ON? 
1 62570 001426 BEQ 1$ “BRANCH IF NO 
13 §2572 005002 CLR fi 
138 62574 073227 000003 ASHC #3,R2 :GET PAR SELECT BITS 
138 52600 072 27 (177775 ASH =3,R3 :RETURN VIR ADDR TO ORIGINAL 
138 2703 BIC #160000 .R3 : IGN DIDN'T EXTEND 
138 102 OL 2 :MAKE R2 EVEN FOR SING 
1 702 172340 ADD #KIPARO,R2 :GET ADDRESS OF 
13845 011205 MOV (R2) ,R5 :GET PAR 
1 005004 CLR R “SETUP R4 
1 073427 000006 ASHC #6,R4 :SHIFT PAR DAT 
13848 305 ADD R3,R5 >FORM PHYSICAL “ADDRESS 
13849 005504 ADC R4 
1 010437 001576 2$: MOV R4,a4PA2116 ;SAVE PHYSICAL 
13851 010537 001574 MOV R5, a#PA1500 = ADDRESS 
1385¢ 3 104422 RESREG 
13853 0626 7 TS PC RETURN 
13854 062646 163703 001604 1$: SUB AF ACTOR ,R3 :FORM PHYSICAL ADDRESS 
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CONVER 


000114 


172350 


000114 


001356 
001360 
001362 


177744 


HE 
**ON THE RANDOM NUMBER. 
** 


;* MAP REGISTERS 0 THRU 3 ARE NOT USED IF THE PR 
; RUNNING ON ACT11. 


K 1 
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T A VIRTUAL ADDRESS TO A PHYSICAL ADDRESS 


CLR 
MOV Rg R5 
2$ ;RETURN 


FF AAA AAE AEA EAEAAAAEAEREEAEREAAEEAAKKCEREKEAEEKEAERAEREREREERREER EEE 


. SBTTL ROUTINE TO CHECK pty DATA 


HIGHEST AD $5 +2 OF SOURCE DATA 
GHEST ADDRESS +2 OF DEST DATA 


t * oe HI 

‘ R5= LOWEST ADDRESS OF THE SOURCE DATA 

** 

te THIS ROUTINE USES A COMPARE INSTRUCTION TO CHECK 

st THE DATA THAT WAS RELOCATED. IF A PARITY ERROR OCCURS 

x DURING THIS CHECK A SPECIAL ERROR MESSAGE IS TYPED 

* INSTEAD OF THE UNEXPECTED TRAP MESSAGE. 

a <a” = 

HKDAT: MOV #2048. ,R3 : COUNTER 
MOV #2$ ar CACHVEC * SETUP PARITY VECTOR 

7$ CMP ~(RO) ,-(R2) “CHECK DAT 
BNE 99$ 
COM (R2) : COMPLEMENT DEST DATA 
COM (R2) : TW 
CMP (R2), (RO) “CHECK DATA 

1$: CMP RO.R5 :BRANCH IF ALL DATA CHECKED 
TSTB § a4MMON Y MANAGMENT ON? 
BEQ 7s *BR BACK IF NOT 
S08 “REPEAT 4096 T 
MOV R2008. .R3 7SET UP COUNTER AGAIN 
SUB #200 a “MAP TO NEXT LOWER 4K OF SPACE 
MOV #120000 ,R2 “START AT TOP OF 4k SPACE + 2 
BR =CKECK MORE 

3s: MOV #. PARSRV, a#CACHVEC “RESTORE CACHVEC 
RTS PC “RETURN 

~~ 

2$: MOV QHMEMERR , aASTMPZ :SAVE ERROR REG 
MOV @ALOADRS ,avSTMP “SAVE ERROR ADR 
MOV @HHIADRS , aS TMPS 
MOV R2 » @AVADR 
MOV  a¥STMPO 
ERROR 5 
MOV #-1, QAMEMERR :CLEAR ERROR REG 
BR 99$ RETURN 


‘—-, un Sch iA |!!! 


-SBTTL ROUTINE TO GET A MAP REGISTER 
:*THIS ROUTINE TAKES AN 18 BIT RANDOM NUMBER, FINDS TWO 
; *CONSE CUTIVE 


MAP REGISTERS THAT ARE NOT IN USE, LOADS THE 
; *REGISTERS WITH THE PHYSICAL ADDRESS MINUS THE RANDOM 
>*AND T 4K, AND RETURNS A NEW BUS ADDRESS, BASED 


OGRAM IS 
THIS ALLOWS ‘MOTHER’’ TO ACCESS THE 
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CEQKCE .P11 
13911 


- i 
* 


EESSSSSYE SSS 


PAUSES WNM OOO NOULE wry 


ee ee ee ee eee ee Ss 


TEENS 





{ISSRSS2° 
——3 A) 

Ww Ww 
NNONOAOO— 


010124 


000004 
000002 
177776 
177437 


100000 
177776 
000001 


ms: +2 eee eee eR RD 


Gy. © Be Se Se Be Be Se Se Be Be Be Se Ss 


2$: 


3$: 


4$: 


1$: 


7% 
12-MAR-80 11:30 PAGE 47-192 


TO GET A MAP REGISTER 


HE MAP TABLE Te CONTAINS 4 BYTES, ONE THe EACH 


END OF PASS HOOKS. 

UNIBUS DEVICE 

THE LOWER 

IN THE E. WHEN A D 

PAIR IS : 

ENTER DITH 
4(SP)=DEVICE ID 
4(SP) RO 

MOV 2(SP) .R1 

MOV a4PSW,-(SP) 

COM ) 

BIC #*CPR7, (SP) 

SPL 

SAVREG . 

yas are 

+ 

JSR PC, a#$RAND 

MOV a4‘$HINUM,R2 

MOV @4SLONUM.R3 

ASHC 14,R2 

BIC #177760,R2 

CMP #16,R2 

BPL 3$ 

BR 2$ 

TST awOV 

BEQ 4$ 

CMPB sO, R2 

BEQ 2$ 

CMPBsé#*1,R2 

BEQ 

MOV RS 

BIC #81T15,R3 

ASHC R2 

BIC WBITO,R3 

MOV R2,~-(R1) 

MOV R3,-(R1) 

MOV #4.R5 
R4.MAPTBL-1(R5) 

BEQ 5$ 

S0B RS.1$ 

MOVB  R4.MAPTBL(RO) 

ADD pe pe R4 

BIC #160000, 

MOV BASGDDAT RI 

MOV a*SBDDAT. 

SUB R3,R1 

SBC R2 

MOV R1,(R4)+ 


2(SP)=ADDRESS OF THE PHYSICAL ADDRESS 


KEKE KKEAEEKKKKEKEAKEKAAEEEAEKEKKKKKAKKKKEKKEEEKEKEEEKKEERKAKEKKKKKKKE 


-GET DIVICE ic. 
T ADR OF PHY ADR 
® SAVE CURRENT PRIORITY 


;MAKE IT READY FOR RESTORE 
IF THIS IS RK CALL, LOCK OUT UBE 
SAVE PHYSICAL 
ADDRESS 


;GET RANDOM NUMBER 

:GET HIGH RANDOM NUMBER 
GET LOW RANDOM NUMBER 
;CONVERT TO 20 


R BIT NUMBER 
;GET RID OF 11 BITS OF SIGN EXT 
:LEGAL MAP ; VES SELECT? 


BRANCH IF 


; TRY 


Y AGAIN 
BACT (QV OR AUTO)? 
H IF NO 


“MAP SELECT 


T 0? 
-BRANCH IF YES.(ACT MUST 
Q@~ 3 


USE MAP 


VE MAP SELECT BITS 


: CONTINUE 
;PUT MAP SELECT BITS IN TABLE 
X TO GET MAP REG ADDR 


ITS 
= RETURN NEW BUS ADDRESS 
gy ete HANDLER 
THIS MAP_IN USE? 
H IF YES 


3; SA 
= CLEAR SELECT BIT 0 
;FORM 18 BIT 


;FORM INDEX 


: GENERATE MAP ADDRESS 
:GET LS 3 BITS OF RAND NO. 
;GET PHYSICAL 
ADDRESS 


;GENERATE MAP 
REGISTER DATA 
OAD THE 


SEQ 0217) 





onr 
mm 


—bODODOODOS RQ 
SSSSS8a% 5° 


eed eed eed eed LD 


FETE ETT S RRR 
ov =—Owoco 


al 


ave 


BS 


RES S SALE. 


wi 


DWONOULWIR-—O 


ce ed ee ed ed 2d ed = od od od od = 2.) od ~~.) od =o) = 2.) = od oo) od) od = od) od ed 
RUN 


11/70 


: 
si 


4 


ire 


177776 
000004 


063060 


000004 
000377 


177776 


000020 


MERCISER MACY11 SOA(1992) 


001766 


177776 


M 1 
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ROUTINE TO GET A MAP REGISTER 


MOV (R4)+ ;FIRST MAP REGISTER 

ADD #26000, 4k 

ADC “TO MAP DATA 

MOV Re (R4)+ = LOAD 

MOV R2. (R4)+ “SECOND MAP REGISTER 

BIC (SP) +, aaPSW :RETURN PRIORITY TO ORIGINAL VALUE 
V (SP) ,4(SP) TURN P 


MO ‘SETUP RE 
CW (Sp), (SP) + :CL EAN UP THE STACK 
“REGISTER PAIR Is, IN USE. TRY ANOTHER RANDOM NUMBER 
S$: ADD #4,R1 :RESTORE R1 

JMP 2$ “GET ANOTHER RANDOM 
PITTITIT LITT ET LI TIT I Ti Ti Titi iitititititiLiitititL Leek 
-SBTTL GIVE MAP SUBROUTINE 

THIS ROUTINE TAKES THE MAP ADDRESS OUT OF THE MAP 

a FOR THE REQUESTING DEVICE AND REPLACES IT WITH 377 


*RAEKRKKAEKEKKKEKKEEKEEEREKEAEEKKEKEKKEEKEKKKAEKKEKKEEEREEEKEKERKKKKEKKEKE 


GIVEMAP :MOV 
MOV 


RO,-(SP) :SAVE RO 

4(SP) ,RO :GET DEVICE ID 
MOVB #377 ,MAPTBL (RO) ;TAKE IT OUT OF THE TABLE 
MOV (SP)+,RO ;RESTORE RO 
RTS PC ;RETURN 


FF RARAAERAREEEAEAEKEREEEEEKERKEKKKKREEREREREEKERKEEEAREERERKERRERREKE 


-SBTTL ROUTINE TO CLEAR ‘T* BIT 


J J RAEREREREEKEREEEKREKEAEREEKEEKEERKEKKRERAERERAEEAEREKRAREEERERAERERREERE 


CLRTBIT :MOV @4PSW,- (SP) sPUSH PSW ONTO STACK 


MOV (SP) , (PC) + ;SAVE IN RETPSW BELOW 
RETPSW: .WORD 0 
BIC #20, (SP) sCLEAR T BIT IN PSW ON STACK 


fF REREREEEREREERREREKEEREEERAEEAEEEARRERKEKEAEKEERAEEEEEEEEEEREEEREKRER 


- SBTTL ROUTINE TO RESTORE THE T BIT 


J EAAEARAEKERAAAKEEREEEREREREEEKRAKEEAREEREKRARKAKEKKRERRAEREREKEREEREEE 


RESPSW: MOV #1$,-(SP) :SET RETURN PC FOR RTI 
RTI :CLEAR 'T' BIT IN PSW 
1$: RTS PC 7; RETURN 
#177400,@aPSW = ;SET KERNEL 


RESTPS: BIC 
MOV 
BR 


oT imi <a<ax 


.SBTTL KEYBOARD INT SERV ROUTINE 
:STHIS ROUTINE HANDLES INTERRUPTS FROM THE KEYBOARD 


: TYPING A CONTROL °C’ WILL CAUSE THE PROCESSOR TO HALT 


: TYPING a CARRAGE RETURN WILL CAUSE A CARRIAGE RETURN-LINE FEED 
:*T0 BE TYPED. 


: s TYPING A CONTROL ‘O' WILL INHIBIT ANY FURTHER TYPEOQUT. THE SECOND CONTROL ‘O° 
s *WILL ENABLE TYPEOUT AGAIN AND ECHO A CR-LF. 


: SANY OTHER CHARACTER WILL JUST BE ECHOED. 


SERA KEEREKEEEREEEREEKEERKEEEEEEKEEEEEKEREREKAEERAEERARARERERRRS 


MODE 
RETPSW,~(SP) ;PUSH ORIG PSW ONTO STACK 
RESPSW 


SEQ 0218 
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80001? 


115732 
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001406 
115710 


115536 
115532 


70 CPU EXERCISER MACY11 
SMA 80 ac43 


001340 


001340 


001340 


30A(1052) 


TKISR: 


18: 


2$: 


N 1 
11:30 PAGE 


12-MAR-80 

KEYBOARD INT SERV ROUTINE 

CNTRLC=3 

CNTRLO=17 

MOV a$TKB,-(SP) 

BIC #177600, (SP) 

CMP #CNTRLC, (SP) 

BNE 1$ 

MOV #SCRLF-1, a#SREGS 

ASRB ~— a$TPSS 

TST (SP) + 

HALT 

RTI 

CMPB ss #15, (SP) 

BNE $ 

MOV #SCRLF-1 ,@ASREGS 

ASRB = aSTPS 

TST (SP) + 

RTI 

CMPB —s- ACNTRLO, (SP) 

BNE 3$ 

TST (SP) + 

COM NOTYPE 

BM] 

MOV ASCRLF-1, a#$REGS 

ASRB ~—s-_ aS TPS 

RTI 

SAVREG 

MOV (SP) .R5 

JSR PC @ALDKT 

MOV @FTKBFRP RO 

MOVB _——R5, (RO) + 

CLRB  —- (RO) 

CMP #TKBFER+20,R0 

BNE 6$ 

MOV ATKBFR,RO 

MOV RO, a#TKBFRP 

JSR PC. aWRESKT 

RESREG 

TST @4NOTYPE 

BPL 1$ 

TST (SP) + 

CLRB a$TPS 

RTI 

TSTB = aSTPS 

BPL _- 

MOVB (SP)+, a$TPB 

RTI 


47-194 


:GET CHARACTER 

;STRIP UNUSED BITS 

sBRANCH IF NOT CONTROL C (*C) 
sECHO CR LF 

:-POP CHARACTER OFF THE STACK 
sRETURN 

;BRANCH IF NOT <CR> 

sECHO CR LF 


sPOP CHARACTEROFF STACK 
; RETURN 


sBRANCH IF NOT CONTROL O (“*0) 
sECHO CR LF 
:RETRIEVE gee 


; C 

sBRANCH IF NOT END OF BFR 
RESET BUFFER PTR 

RESTORE BFR PTR 

:GO BACK TO ORIGINAL MEMORY 
;TYPEOUT DISABLED? 

; CH IF NO 


“FIX UP STACK 
“CLEAR IE BIT 


;RETURN 
;PRINTER READY? 

;BRANCH IF NO 
;MOVE CHAR TO PRINTER 
;RETURN 


oa KEKE KEREKEEREEEEEKEKEKKEEAKKEEKKEEEEKKEEKEKKEEEKEEKEEKEKKEEE 


~SBITL TELETYPE INTERRUPT SERVICE ROUTINE 
:*THIS ROUTINE TYPES A MESSAGE POINTED TO BY THE ADR STORED 


SEQ 0219 


B 2 
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CEQKCE. pit TELETYPE INTERRUPT SERVICE ROUTINE SEQ 0220 
14079 :*IN LOCATION $REGS. THIS ROUTINE IS INTERRUPT DRIVEN. 
1 biee- ine. =6oaeanecs.:SCST ED SueGceaee KteaecSs PTR 
14081 366 197 001340 TPISR: INC arSREGS = STEP MESSAGE ADDRESS 
1 115542 MOVB § aSREGS,-(SP) :GET CHAR TO er MT yPED | 
1 576 001356 ECHO *GO TYPE CHAR IF NOT 'O' 
1 TST (SP)+ =POP STACK | 
14085 7 115506 CLR a$TPS [CLEAR IE BIT 
1 012737 001624 001340 MOV #NULLS , @#SREGS 
14 $0002 RTI RETURN 
1 {EAA AAAAERAEEEAARAERAEAEAAAAAARARRAERARAAEAAREARAEERHAERARREREEEED 
1 ° SBTTL PARITY ERROR SERVICE 
14091 :* THIS ROUTINE FIELDS UNEXPECTED TRAPS TO 114. IT IS ASSUMED 
146098 :* THAT THE ERROR WAS IN CACHE AND WAS CAUSED BY THE ‘OTHER 
1409 :* WORD'' RATHER THAN THE ‘WANTED WORD'' WHICH MEANS THAT THE 
1409% :* BAD DATA IS STILL IN THE CACHE. SO, TO CLEAR THE BAD DATA 
14095 * THE ERROR ADDRESS IS REFERENCED CAUSING THE CACHE TO GO 
14096 :* TO MAIN MEMORY TO GET THE DATA. THIS PREVENTS AN 
16097 3* ARBITRARY REFERENCE TO THE BAD WORD FROM TRAPPING. 

*“* 
14099 :* AFTER THE ERROR IS REPORTED, BITS 2 AND 3 OF THE MEMORY 
14100 :* ERROR REGISTER ARE TESTED TO SEE IF THE BAD DATA IS IN 
14101 ti MAIN Y. IF IT IS, THE PROGRAM RESTARTS SINCE THE 
16102 * GOOD DATA IS NOW LOST FOREVER. OTHERWISE THE PROGRAM 
1410 zs RETURNS TO THE ADDRESS POINTED TO BY ‘SLPERR'’. 
141046 5 LAER AEEEREAEREEREREREREREEERAREARRERERRAREERRERERERKRKEKKKE 
14105 012737 064076 000114  PARSRV:MOV :PUT NEW ADDRESS IN PARITY VECTOR 
14106 016637 001352 *SAVER ERROR PSW 
1410 011637 001572 MOV 7SAVE PC 
14108 162757 000002 001572 SUB TADJUST ERROR PC 
141 013702 177744 MOV =GET ERROR REGISTER 
14110 013703 177740 MOV -GET LO ADDRESS ERROR REG 
14111 010337 001360 MOV :PUT LOW ADR IN MEMORY 
1611¢ 013737 177742 001362 MOV HI ADDRESS ERROR REG 
1411 042705 76000 BIC ;MASK ork t TOWER TEN BITS 
14114 013704 172354 :SAVE PAR6 
14115 105737 001601 TSTB -1S MEMORY MGMT ON? 
14116 001407 BEQ 1$ :BRANCH IF NO 
1411 005037 172354 CLR @FK IPARG Aan 
14118 012737 077406 172314 MOV #77406, @4KIPDR6 :ENSURE PDR 6 RESIDENT 
14119 052703 140000 BIS #140000,R3 7SETUP R3 TO REFERENCE > THRU PAR6 
141 105713 1$: TSTB —s._-« (R33) ;REF ERENCE ADDRESS THAT TRAPPED 
14121 D CAUSE ABORT 
141 3 00510 2$: COM R2 “GET ORIGINAL MEMORY 
141 01023 177744 MOV R2, AMEMERR “ERROR REG DATA 
14124 3737 177744 001356 PERET: MOV @NMEMERR ,akSTMP2 :SAVE ERROR REG FOR TYPEOUT 
141 013737 001262 001336 MOV @FSLPERR . aNSREGS :SAVE LOOP 
141 012737 063756 001262 MOV #28. aNSLPE *SET RETURN ADDRESS IF LOOPING 
141 013737 001336 001262 2%: MOV @#SREGS ,ANSLPERR :RESTORE LOOP ADDRESS 
141 010457 172354 MOV R4, ak IPAR6 :RESTORE PAR6 
141 013704 177744 MOV QSMEMERR ,R4 “GET MEM ERR REG 
14131 012737 177777 177744 MOV 4-1, QAMEMERR ;CLEAR ERR REG 
1413¢ 012737 063616 000114 MOV #. PARSRV, af CACHVEC RESTORE PARITY VECTOR 
14138 042704 177763 BIC #177763,R4 -CLEAR ALL BUT BITS 2 & 3 
141 001426 BEQ 1$ “BRANCH IF NOT MAIN MEMORY ERROR 








CEQKC-E PDP 11/70 CPU 


CEQKCE .P11 
14135 Goats 
3 Sa 
(1) 
mt Beer 
ig ore 
14140 064076 
14141 064100 
17106 
1414 
14144 
i 
ara 
14148 064104 
14149 064110 
14150 064112 
14151 oer a3 
er 1 
14155 0641 
14154 0641 
EE tt 
12187 $64142 
14158 eehts, 
14159 150 
14160 064154 
14161 064160 
rb 162 
1416 1$8 
14164 1 
ne Set 
e167 964176 
14168 064200 
14169 
14170 
ee 
12198 
14174 064202 
14175 064206 
101m oer515 
141 12 
14178 1 
14179 
14180 064222 
Lyd 2 pees fe 
ies Be 
141 064234 
14185 064236 
4186 064240 
14187 064242 


2 
yen nme 11:30 “ DAGE 47-196 


XERCI R MACY11 30A( 1052) 
12=MAR- ARITY ERROR SERVICE 
104400 064024 TYPE ,65$ ::TYPE ASCIZ STRING 
000420 BR 64$ GET OVER THE ASCIZ 
13958: “ASCIZ /FATAL PARITY ERRORCRE START ING/ COREE? 
RESET :CLEAR THE WORLD 
137 003612 JMP aNSTART 
12716 064100 1$: MOV #X, (SP) :PuT ADDRESS ON STACK TO GET ORIGINAL 
02 RT1: RTI GET OLD PSW 
000177 115156 x: JMP @SLPE - JUMP TO START OF TEST THAT HAD THE PE 
TTTITITI IIIT TTT TTL I TIT TIT ttt LiTiititiitiiiiiti tii li iit iis 
“STL CONTEXT SWITCH DOWN SUBROUTINE 
* SUBROUTINE TO SAVE & LOAD KIPAR'S 0,1,2 AND 3 (IF MEM MGMT ENABLED) 
* THIS ROUTINE IS CALLED BY THE KEYBOARD INTERRUPT, LINE CLOCK 
* INTERRUPT, UBE SERVICE ROUTINE, MBT SERVICE ROUTINE, AND TYPE TIME ROUTINE. 
5 FEAR AARKEKEREREEEEEKKKAEREERKREREREKERERKEKEERERRRREEEEE 
105737 001601 (DkT:  TSTB :BRANCH IF MEM MGMT DISABLED 
001433 BEQ 1$ 
01 MOV (SP) +,R4 :SAVE RETURN PC 
013737 177774 001566 MOV @4PSW.aASSAVPSW :SAVE THE CURRENT PSW 
042737 140000 177776 BIC #140000 ,aaP *GO TO KERNEL MODE 
012700 172340 MOV #KIPARO.RO “GET ADDRESS OF PARO 
012001 MOV (RO)+,R1 *GET PARO 
01 MOV (RO)+,R “GET PARI 
01200 MOV (RO)+,R *GET PAR2 
012005 MOV (RO)+,R5 2 PAR3 
012740 000600 MOV #600, -(RO) =BACK TO LOW CORE 
012740 000400 MOV #400,-(RO) *RELOC BACK TO LOW CORE 
012740 000200 MOV 200,-(RO) 
005040 CLR -(RO) 
012700 001556 MOV SAVPAR ,RO :GET ADDRESS OF SAVE BUFFER 
010120 MOV R71, (RO)+ “PUT PAR DATA IN MEMORY 
910220 MOV R2, (RO) + 
010 MOV ~(RO)+ 
010510 MOV R5, (RO) 
010446 MOV R4,-(SP) :PUT RETURN PC ON STACK 
207 1$: RTS 
in Mx aie 
* SBTTL CONTEXT SWITCH UP SUBROUTI 
; SUBROUTINE TO RESTORE KIPARO, 1 by AND 3 (IF MGMT ENABLED) 
pp cece a Bin Bi om Sct ss Dey Be A DiS Alt ce re AR 
105737 001601 RESKT: TSTB #§§ @#MMON :BRANCH IF MEM MGMT DISABLED 
001421 BEQ 1$ 
012604 MOV (SP) +,R4 :GET RETURN PC 
012700 001556 MOV ASSAVPAR -GET ADDRESS OF SAVE BUFF 
912001 MOV (RO)+,R1 *GET OLD PAR DATA 
01 : MOV (RO)+,R 
01200 MOV (RO)+._R 
012005 MOV (RO)+,R5 
012700 172340 MOV #KIPARO,RO :GET ADDRESS OF PARO 
010120 MOV R1,(RO)+ “RELOCATE BACK 
010220 MOV R2. (RO) + 
010 MOV , (RO) + 
010510 MOV (RO) 
013737 001566 177776 MOV ax$SAVPSW, aePSW 


SEQ 0221 


2 | 
CEQKC~E PDP ef CPU MERC ESER MACY11 30A(1052) 12-MAR-80 11: re ” PAGE 47-197 
CEQKCE .P11 12 CONTEXT SWITCH UP SUBROUTI SEQ 0222 


141 964250 010446 MOV R4,-(SP) 
1 52 000207 1$: TS PC 

14190 5 RRR AAAAE AAA RAEE AREA ERATE AARER AE REREARERERERERERRRERE TERRE HEE 
14191 -SBTTL KT ABORT SUBROUTINE 

eee © RAE REAR ERARERRAARERAEAAEEERAEARAEREAEEAREREREHEEHREHEE 
1419 064 54 016637 900002 001352 KTABRT: MOV 2(SP) ,a#STMPO :SAVE ERROR PSW 

14194 011637 00157 MOV (SP) ,@#VADR “SAVE ERROR PC 

14195 064 162737 001572 SUB #2, aNVADR 

12199 3 oF 7 1997896 oO 1300 mov he ers ihes ‘SAVE 

14198 $6231 4 7 001262 001336 MOV QYSLPERR, a¥SREGS =SAVE LOOP ADDRESS 

161 064 16 012737 064326 001262 MOV “i$. ,@*SLPERR *SET RETURN ADR IF LOOPING 
14 064 013 001336 001262 1$: MOV @FSREG4 ,AFSLPERR ZRESTORE LOOP ADR 

leans Gecacs Sitrig ootaee "ty Sate” TLD SS 

14 RT] 2 RETURN 

14308 {RARER ERARERERKERREERAEEEEEARARRERERAKRAERKEEEEEEEERERREREKEHEREE 
Se *S8TTL RESERVED INSTRUCTION ROUTINE 

14 SRR RREREEREEEEEEAERERERERERREREREREREREEREARERREEREEREEREEERE ED 
1 064350 016637 000002 001352 RESERR: MOV 2(SP) ,a#STMPO :SAVE PSW 

14210 064356 011637 001572 MOV (SP) ,@#VADR “SAVE ERROR PC 

14211 ahs, 162737 000002 001572 SUB #2, aAVADR 

142te 064370 013737 001262 001336 MOV avSLPERR .a#SREG4 :SAVE LOOP ADR 

14213 064 376 O12730 064406 001262 MOV ais. -@ASLPERR :SET RETURN ADR IF LOOPING 
14215 064406 013737 001336 001262 1S: MOV @#SREGS ,AASLPERR :RESTORE LOOP ADR 

ogig 066416 013716 001262 MOV OVSLPERR, (SP) GET boop ADDRESS 

421 ¢ 

14819 J AERA RARAAARAAKEAERAAEEREEAEAERAAAAAKAARERAERKRERAEREAEREEAERERREREREE 
14220 *SBTTL TRAP TO 4 SERVICE ROUTINE 

0s 1 ERE EREKEREREERERERERERREREEREREEERERREEEREREEEEREEEEER ERE 
1agee 064422 016637 000002 001352 ERPRT: MOV 2(SP) ,a#STMPO :SAVE ERROR PSW 

14206 064430 011637 001572 MOV (SP) ,@#VADR :SAVE ERROR PC 

12556 064643 013706 00700 SB (BIR -RESTORE SP 

16097 013737 177766 001356 MOV @*CPUERR, atSTMP2 *GET FRROR REG 

14 064454 013737 001262 001336 MOV @ASLPERR , AASREGS :SAVE LOOP ADR 

10209 ones O1275/ 064472 001262 MOV #18 AFSLPERR :SET RETURN ADR IF LOOPING 
14231 064472 013737 001336 001262 1$: MOV @ASREGS ,AFSLPERR :SET LOOP ADR 

14 064500 005037 177766 CLR a4CPUER 

14233 064504 013746 001352 MOV Q4STMPO,-(SP) ;:SETUP STACK TO RETURN 

14234 064510 013746 001262 MOV QASLPERR,-(SP) 

i 064514 000002 RTI RETURN 


CEQKC-— PDP 11/70 CPU 
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14 51 
14348 98450 99000 
14267 964524 144020 
oer 288 044020 
2585 064532 000000 
533 33 000004 
5% 000006 
5 000010 
$0001 > 
59 
6C 002210 
i 002232 
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RAP TO 4 SERVICE ROUTINE 
; THE BELOW TABLE —- THE *“NEW* PSW SET BY THE PROGRAM ON 
ABLE MAY BE MODIFIED TO CAUSE THE PROGRAM TO RUN 
: R USER DEF INED ne eee BY PATCHING IN THE DESIRED PASS PARAMETER 
FOR EXAMPLE TO CAUSE THE PROGRAM TO RUN WITHOUT SETTING THE ‘T° BIT 
IN ey PASSES PATCH OUT THE ‘T‘ ‘BIT IN THE TABLE. 


:T-BIT TRAPPING 
USER 







140000 
144020 “USER MODE, REG SET #1, T-BIT TRAPPING 
040000 ; SUPERVI 
044020 : SUPERVISOR MODE, REG SET #1, T-BIT TRAPPING 
ine BELOW TABLE IS USED TO SET MEMORY MARGINS 
GTAB: .WORD 0 NO INS 
“WORD 4 sEARLY STROBE 
-WORD 6 ;LATE STROBE 
-WORD 10 7LOW DRIVE CURRENT 
-WORD 0 ;NO MARGINS 
-WORD 12 sHIGH DRIVE CURRENT 
sMESSAGES 
EVEN 
REGINX: RP3DS 
RKDS 
RP4CS1 
RSCS1 
WORD 
. WORD 
MBTTBL 
UBE TBL 
MSGINX: .WORD MSGS 
-WORD MSG6 
-WORD MSG21 
-WORD MSG21 
.WORD MSG10 
-WORD MSG11 
-WORD MSG21 
«WORD MSG21 
-WORD MSG15 
-WORD MSG24 
MSG1: -ASCIZ <CRLF>*LOW LIM?° 
MSG2: ASCIZ ‘HIGH LIM?’ 
MSG3: -ASCIZ /ERRORPC PHYSC PC PSW MAINT TEST NO SUB-PASS CNT/ 


SEQ 0225 
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12-MAR-80 11:30 
TO 4 SERVICE ROUTINE 


F 2 
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:MSG4 HAS BEEN MOVED TO END OF PROGRAM 


MSGS: 
MSG6: 


MSG10: 
MSG11: 
MSG12: 


MSG13: 


MSG14: 


MSG15: 


MSG16: 


MSG17: 


eASCIZ 
-ASCIZ 
eASCIZ 
-ASCIZ 
ASCIZ 


ASCIZ 


ASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


?RPO3 
?RKO5 
?RP04 
?RS04 


? 
? 


? 


/DRVSTA ERRREG CSREG 


/ CS1 


/DESCYL 


/MASS BUS TESTER / 


/ CS1 


WRDCNT BUSADR 


ER2 


WRDCNT BUSADR 


BUSADR 


ER3 


CR2 


WRDCNT BUSADR DSKADR CYLADR(RPO3) 


BADREX DSKADR  (CS2 cs3 
RPCC/<CRLF > 
BADRE X MR2 CS2 ST 


CR1 PHYS BUSADR/<CRLF> 


SEQ 0224 


PHYS BUSA 


DRVSTA ERRREG/ 


CS3/< 
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040523 


020040 


050124 
051531 
020040 
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051122 

000 


001352 
042520 
052040 
047524 


050124 
051531 
020040 


30A(1052) 


MSG20: 


MSG21: 


MSG22: 
MSG23: 
MSG24: 


MSG25: 


ASCIZ 


eASCIZ 


12-MAR-80 
TRAP TO 4 SERVICE ROUTINE 


ASCII / 
eASCIZ 
ASCIZ 


/ 
/UNIBUS EXERCISER / 


G 2 
11:30 PAGE 47-200 


/ 


eASCIZ /OPT.CP=/ 


/ 


/ILLEGAL DEVICE/<CRLF> 


s;MSG30 THROUGH MSG38 ARE AT END OF LISTING 


EM1: 


DH1: 


DF 1: 


DT1: 
EM2: 


DH2: 


eASCIZ /UNEXPECTED TRAP TO 4/ 


eASCIZ /PCOFTP PHYSPC PSwW 
-BYTE 0,1,0,0,0 

~EVEN 

-WORD VADR,VADR,STMPO,STMP2,0 
~ASCIZ /UNEXPECTED TRAP TO 10/ 
-ASCIZ /PCOFTP PHYSPC PSwW/ 


CPUERR/ 


SEQ 0225 


/THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789/<15><12> 


CEQKCE P11 12 TRAP TO 4 SERVICE ROUTINE 
066012 051520 000127 
14511 -EVEN 
14312 ped 1572 001572 001352 DT: -WORD VADR,VADR,$TMPO,0 


14313 054105 04 228 EMS: -ASCIZ /UNEXPECTED TRAP TO 250(MGMT)/ 


H 2 ss 7 
CEQKC-E PDP 11/70 CPU KERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-201 
11: SEQ 0226 


000 
052106 DH3: -ASCIZ /PCOFTP PHYSPC PSW MMRO MMR 2/ 


ies 
$15 030122 
$30040 046575 
5040 


14314 


© 
wi 
™ 


oO 
_ 


14315 
14516 


14317 


.EVEN 
001352 DT3: -WORD VADR,VADR,$TMPO,STMP2,$TMP3,0 
000000 


~ASCIZ /UNEXPECTED TRAP TO 114/ 


— 
S35 = 
Ww 


Nowy 
“Ss 
Sek 
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BEER FRE 


ee ed eed ed eed eed ed ed ed 


RURSNRADUUNGNFEOON 
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14318 eASCIZ /PCOFTP PHYSC PC PSW ERRREG ERR ADR REG/ 


So 
3 
wa 


RBSR 


EESRR 
ree 
SKSREERS 
oOo 

RN 

23 
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oo 
ee 
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° 
Ww 
a 
at 
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14319 psi 001 000 DF4: -BYTE 0,1,0,0.2 
14320 040520 044599 054524 EMS: eASCIZ /PARITY ERROR DURING DATA CHECK/ 


Pees 
NOONS 
RSF 
S 
3 
4 
wR 
° 
S 


14321 ehetes 042101 DH5: eASCIZ /SRCADR DSTADR EADRREG MEM ERR REG/ 


14322 
14323 
14382 


14325 


001 002 DFS: BYTE 0,1,2,0 


-EVEN 
$06 001572 001360 DT5: -WORD $TMPO,VADR,$TMP3,$TMP2,0 


05 047522 peel se EM6: -ASCIZ /ERROR DURING DATA CHECK=-RELOC WAS BY CP/ 


BES lowes 


33 
ty 
ere 
Rs 
z 
: 
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z=. 
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CEQKC | 
CEQKCE .P11 12 11 TO 4 SERVICE ROUTI SEQ O22 | 


ay? 27 069156 054502 
14326 5 112 3 051104 DHé6: -ASCIZ /SRCADR DSTADR/ 
051504 040524 
1 000 
14327 -EVEN 
14 35 15 000000 DTé6: -WORD $TMPO,VADR,0O 
14 11 ts beg lse EM10: .ASCIZ ?ERROR DURING DATA CHECK=RELOC WAS BY 1/0? 
066514 0531 1 020101 
366 1 fs 513 
7514 103 
les 054502 
0474 000 
14330 23) 1 041522 042101 DH10: .ASCIZ /SRCADR ODSTADR DEVICE THAT DID XFER/ 
122 0 051504 
1104 0 
5 3105 041511 
062040 063171 084040 
14 04 000122 
14331 1 003 DF10: .BYTE' 0O,1,3,0 
eae EVEN 
14 Oee§s oo 52 001572 001356 DT10: . WORD STMPO,VADR,STMP2,$TMP3,0 
14334 bea 0 31S; 024525 EM11: -ASCIZ /BIT(S) STUCK IN MICRO-BREAK REGISTER/ 
rece: 051440 0O aoee errs 
roe 8 $19 51102 
113 042522 
4 4 052123 051105 
14335 70 009 047517 042104 DH11: -ASCIZ /GOODDAT BAD DATA/ 
710 Or Soee 041040 0462101 
716 042040 052101 000101 
Ny 724 000 000 DF11: it 0,0 
14 4 O01 Toe 001354 000000 DT11: .WORD $TMPO,$TMP1.0 
14 112 aay e 047516 EM12: eASCIZ /UBE NON-EXISTANT MEMORY ERROR/ 
74 516 105 051511 
ae 52116 046440 
7 505 051117 020131 
A 51105 bel 36 000122 
14340 2 1 515 041040 DH12: .ASCIZ /PHYS BUSADR/ 
80 §1525 042101 000122 
14341 DFi2: -BYTE 2 
14 ¢ 96 1 EVEN 
14 067010 1 9 000000 DT12: -WORD $GDDAT,0O 
14344 067014 041115 020124 047516 EM13: .ASCIZ /MBT NON-EXISTANT MEMORY ERROR/ 
06 pe gae 054105 051511 
ee 524 052116 046440 
7036 505 051117 020131 
js fhing. 51105 Bet o6s 000122 
14345 ae 044120 051531 040440 DH13: -ASCIZ /PHYS ADDRESS/ 
06 042104 042522 051523 
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sf 
Ss 
sas 


004465 
020124 
051122 
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30A(1052) 


EM14: 


DH14: 


DT14: 
DF14: 
EM15: 
DH16: 


DF 16: 


DT16: 
EM17: 


EM20: 


ENDTAG: 


12-MAR-80 11 
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ee. 
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NE 


eASCIZ /FLOATING POINT ERROR/ 


eASCIZ 
-EVEN 
. WORD 


-BYTE 
-ASCIZ 
ASCIZ 


-BYTE 
»EVEN 
WORD 


-ASCIZ 


ASCIZ 


- WORD 


/ 


DTAT1 DATA2/ 


STMP4 ,SREG2,$TMP6,$REG3,0 
4.0.4.0 
/DEVICE HUNG/ 


/ 


DATA1 DATA2/ 


5.0,5,0 


FLTMPO,SREG2,FLTMP1,$REG3.,0 
/RO FAILED TO LOAD CORRECTLY ON MFPT/ 


/CIS INSTRUCTION FAILURE/ 


J FAA AAKAEKEKRAARRAEKEREEERERKAEERKEREKEEAEKEKERAKEEAEEEEERERERERERE REE 


; THE FOLLOWING ASCII GETS OVERLAYED WHEN THE PROGRAM 
SWITCH: .ASCII /OPERATIONAL SWITCH SETTINGS/<CRLF> 


ASCII 


ASCII 


/SWITCH USE /<CRLF > 

/ 15 HALT ON ERROR/<CRLF> 

/ 14 LOOP ON TEST/<CRLF> 

f AS INHIBIT ERROR TYPEQUTS/<CRLF > 


SEQ 0228 
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TRAP TO 4 SERVICE ROUTINE 


ASCII / 12 
ASCII / 11 
ASCII / 10 
ASCII / 9 
ASCII ? 8 
MIT 4 of 
ASCII / 6 
ASCII / 5 
ASCII / 4 
ASCII / 3 


SEQ 0229 


INHIBIT UBE/<CRLF> 


INHIBIT ITTERATIONS/<CRLF > 


BELL ON ERROR/<CRLF> 


LOOP ON ERROR/<CRLF > 


ALLOW RELOCATION VIA 1/0 DEVICE (NOTE CHANGE) ?<CRLF> 


INHIBIT TYPEOUT OF THIS TEXT AND SYS SIZE/<CRLF> 


INHIBIT RELOCATION/<CRLF > 


INHIBIT ROUND ROBIN RELOCATION/<CRLF> 


INHIBIT RANDOM DISK ADDRESS/<CRLF> 


INHIBIT MBT/<CRLF> 






VARRAION 
RERGRL 
a3 eee 

ae 
SN 


EREER 
Me VV 


. 2 
CEQKC-E PDP 11/70 CPU KERCISER MACY11 30A(1052) 12=MAR-80 11:30 PAGE 47-205 
CEQKCE .P11 12 11: TRAP TO 4 SERVICE ROUTINE SEQ 0230 
7014 11 044116 061111 
y1 2111 046440 052102 
14376 07015 004 astii / 2 THESE THREE SWITCHES/<CRLF> 
07016 1 33 
1 1110 042505 
2206 327 041524 
14377 07021 004411 ASCII / 1 ARE ENCODED TO SELECT RELOCATION/<CRLF> 
07022¢ 1 1 04705 
D226 7503 04 20104 
i} 7526 051440 046105 
9242 1 124 042522 
070¢ 7314 3 044524 
ny ‘ 
14378 690561 040 020040 004 stii / 0 ON THE FOLLOWING DEVICES:/<CRLF> 
070266 047411 020116 044124 
0 2746 9201 7506 04611 
0 3( 51 7111 020107 
07031C O42 526 042503 
070316 035123 
14379 0” 1 011 027056 ASCII » -RP11/RPO3?<CRLF> 
9 36 9501 051057 
14 , ' 
14381 070340 030411 0 051056 ASCII . .RK11/RKO52<CRLF> 
070 9 $13 045522 
070354 460 
14382 070357 gt 027056 ASCII . NOT USED?<CRLF> 
0 047516 051525 
0 042105 
14383 0 gn 027056 ASCII ..NOT USED?<CRLF> 
0 047516 0515.'5 
0 10 042105 
14384 13 011 027056 ASCII . -RH70/RP04 ?<CRLF > 
o784 051057 
14385 0 411 027056 051056 ASCII ? 5...RH70/RS04 OR RSO3?<CRLF> 
510 027460 051522 
047440 020122 
54 051522 031460 
14386 1 11 027 02 56 ASCII ? 6...NOT USED?<CRLF> 
047516 020124 051525 
4 042105 
14387 gi 0 027056 ASCIZ ? 7...NOT USED?<CRLF> 
Greats Sis Seats 1S 
14388 e 210 052200 04 Ay Oe zese MSG4: eASCII <CRLF>/THE FOLLOWING DEVICES AND DRIVES WILL BE USED FOR RELOCATION IF B 
70594 
75296 


SSS3335 
PS 

oo 

=i 





CEQKC-E 


M 2 
11/70 CPU_EXERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-206 
CEQKCE .P SMAR~8O iio? TRAP 


12 TO 4 SERVICE ROUTINE SEQ 0231 


ze 


052101 047511 
of 111 041040 
34040 051440 


-ASCIZ /DEVICE DRIVES/<CRLF> 


ond 
§ 
Oooo0c00o 


14390 


Ww 
—_ 
Lo ] 
—_ 


oOoo°oe0o 
RREREM ase aatat 
M 
bt —_— 
— R ani 
ASS =S=EN= NSSosae 
NO ——-OWnNUW =n 
ge - 
NVSEUNAR FES 
SNERS= Ss 
LERP g ge 
WW weet Vw 
RSEESAG VS 


R 


a 047052 MSG30: .ASCII <15><12>/**NOTE** SWITCH REG BIT 8 HAS BEEN REVERSED IN REV D/<CRLF> 


= 

RR 

MN 
NONEES=8 
SF 

oO 


oooo 
~N 


14391 1 oeea Se 034040 ASCII] ‘NOTE THAT SWR BIT 8 SET NOW ALLOWS I/0 RELOCATION’ <CRLF><CRLF> 
070746 04051 124 05382 
0707 122 020124 
070762 52 24 
0 047516 020127 046101 
070776 047514 051527 044440 
971004 047457 051040 046 
O71012 041517 052101 047511 
14392 071 168 044510 020123 ASCII] ‘'THIS PROGRAM SUPPORTS I/0 RELOCATION ONLY WITH THE FOLLOWING DEVICES:*’ 
071030 051120 043517 040522 
071036 020113 052523 050120 
71 1117 051524 04444 
071 7457 051040 04610 
071 1517 052101 047511 
071066 020116 047117 05451 
0710 0 052111 020110 
071102 044124 020105 0475 
07111 114 053517 047111 
071116 020107 04 0445 
071124 042503 035125 , 
14393 071130 051200 030120 0 -ASCIZ <CRLF >" RPO3,RKOS.RPOG/5/6,RS03/4 
0711 3522 032460 051084 
71144 030120 027464 027465 
71192 0 1522 
14394 tay osesn’ 030502 026461 MSG31: .ASCIZ ‘kB11-EM'’<15><12> 
14395 071175 061 027461 032067 MSG352: .ASCIZ ‘'11/74 (KB11CM)'*<15><12> 
071 0 020040 020040 
071 0 020040 045450 
71216 0 041461 024515 
071224 00501 000 : ; 
14396 071227 015 041412 052520 MSG34: .ASCIZ <15><12>*'CPU UNDER TEST FOUND TO BE A 
071234 052440 042116 051105 
071242 052040 051505 020124 
071250 04 047125 020104 
071256 047524 041040 020105 
071264 020101 000 


N 2 
CEQKC-E PDP 11/70 AP ed MACY11 30A(1052) 12-MAR-80 11:30 PAGE 47-207 
CEQKCE .P11 12-MAR 1: TRAP TO 4 SERVICE ROUTINE SEQ 0232 


14397 a ‘ o7if $1 MSG35: .ASCIZ ‘°811-B/C''<15><12> 
14398 4 05111 1 ose MSG36: .ASCIZ ‘kB11-E°*<15><12> 
1511 ge gie9 MSG37: .ASCIZ /CISP OPTION NOT FOUND/<15><12> 


MSG38: .ASCIZ /CISP OPTION FOUND/<15><12> 


14401 000001 - END 


RR 
“a 






au 


eeeees cscs: 





ASHC 
ASHL 1 
ASHN = 
ASHNI = 
ASHP = 
isa * 
ASHR1 
ASLB1 1 
ASLBIA 01 
ASLBS 014 
Ase Hien 
Ae 16570 
ASL 011634 
ASL1 1 
ASL3 14224 
ASLS 13544 
ry, 1 
ASL 4 
ASRB1 131 
ASRB1A A 114 
13726 
13744 
See Sid 
ASRB 16306 
ASRO 011662 
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a a as 
SSo- 
ey 


SSNS 
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Annu 


RUMP LRCERR 
IR NSO OI COR SAN 


ARP DEAS ITRCLER PACT SANG 


11575 
1 


2) 


12-MAR-80 1 
REFERENCE TABLE 


11576 116324 11671 
6191* 


80914 
82074 


87434 
11744 


11393 


73984 
77268 


6821 
70624 


73264 


68364 


117554 


11447 


68234 


1:30 
-- USE 


>: 
CEQKC-E PDP 11/70 CPU pMERCESER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 48-1 
CEQKCE .P11 12 11: CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0234 
ASR1 012670 15 7016 7017 70194 
4 7 7297 72998 
ASR 1421 74 74794 
ASRS 01 7627 7628 76 
015714 7847 Yo 785 
A.DSC 1252 11363 11374 11375 11382 11403 11442 11448 11459 11481 11482 116314 
Al 113744 11662 
“ 113754 11662 
11 11662 
AG 0114 1140 11662 
AS eens 114424 11662 
Ag 114484 11662 
A 0404 114814 11662 
A8 0404 114824 11662 
8 041260 11470* 116344 11671 
BICB1 017440 8272 8273 82754 
BICBIA Le 8283 82864 8340 8341 
BICO 16698 8058 8059 80624 
BIC1 0171 8166 8167 81694 
BIC 017776 8379 8381 8382 83844 
BIC 02051 8541 85434 
BIC 245 88874 8889 
BINB 0 $35 8440 8442 8445 8448 8451 8453 8456 84594 
B1NB7 § 8822 88304 
BIN1 01 8315 8318 8321 8324 8327 8330 8333 83384 
BISB1 0174 8267 82694 
BISO 16564 9 8050 80524 
BISOA 2 8076 80 
BIS! 017116 8160 8161 81634 
BI Ak» 8363 83654 
BI 8398 8399 84014 
BIS 022412 88774 8879 
BITB1 017416 8261 8262 82644 
sie 314 8481 8482 
BI 76 8591 85944 
BI! 1312 86744 
BITT? 017044 8137 8138 81404 
BITT2 O 2 8391 8392 944 
4h = : aaGee 6399 6400 6407 6626 6634 6636 12586 12624 12665 13760 #£«213951 
BITO! = 53 
11 = 53734 
BITOS = 10 53734 
= 53734 
BIT 0 53734 
BITO6 = 100 53 
BITO? = 53734 866212 
ahh. = 00 53734 
BITO9 = 001000 53734 13163 13164 
BIT] = 53734 
BIT10 = 53734 13164 
BIT11 = 000 53734 865428 6402 6403 6405 13094 13163 
oir ie = 010000 53734 5427 6582 6610 12499 
BIT13 = 020000 53734 12479 131 
BIT14 = 040000 53734 65426 6126 6394 6395 6397 12752 12824 12847 12862 12873 12892 # 12923 
1 12956 12968 12987 13087 #13733 


CEQKC-E PDP 11/ 
CEQKCE .P11 1 
BIT1S = 100000 
Ng = 000004 
BITS = 000010 
IT = 000020 
BITS = 000060 
BIT6 = 000100 
BIT7 = 000200 
BITS = 000400 
BIT9 = 001000 
BPTVEC= 14 
BUF F 041752 
BUFFAD 0413 
B,5aC 041 
Be 040126 
i] 040442 
B4 040444 
85 040510 
Bé 040540 
87 040476 
C 041264 
CACHVE= 000114 
CALLHA= 000010 
CBIT 026122 
cco 011312 
cc1 011326 
cc 011342 
cc 011354 
CC4 011370 
CHAR 041 
CHAR1 ia 
CHAR 0 
CHAR 03 
CHAR4G 03 
CHARS 37664 
CHKDAT 
CHK SP 
CISER 040706 
CISER1 724 
CISER2 040742 
CISER 760 
CISoP 12 
CISOPT= 010000 
CISP 001555 
CISTRP 006030 
CISTST= 
CLRTBI 14 
CLRO 11430 
oe ALCS 
res 710 
CMPC = 076044 


70 CPU 


gb 11:27 


2-MAR- 


53734 
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ER MACY11 30A(1052) 


12-MAR~80 


dD 3 
PAGE 48-2 


CROSS REFERENCE TABLE -- USER SYMBOLS 


13809 


84774 
11256 


13536 


138714 
11242 


11:30 

$13 6414 16 
1294 13684 13760 
10498 12233 12401 
11775 12159 12161 
12927 12961 12992 
6594 6616 12165 
12822 128335 12860 
9373* 9374* 

11634 11636 11638 
11472 11557 #11559 
114 11501 11519 
118735* 11874* 11881* 
6704 6705 6706 
11336 §6116484 

11258 11277 11296 
6462* 6464 64734 
6477* 6501 9392 
12254 139944 

67504 

11337 


11882* 


67084 


11317 


11129 


6470 


12251* 


11339 


11141 


12150 
12484 


12444 
12954 


11652 


12252* 


11553 


12596 12603 
12636 12672 
12513 12580 
12985 

116814 

13872* 13888* 
115664 


SEQ 0235 


12715 


12757 


12615 


14105* 


. 2 
CEQKC-E PDP 11/70 | MACY11 30A(1052) 12-MAR-80 11:30 PAGE 48-3 


CEQKCE .P11 12-MAR- CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0236 
CMPCI = 076144 54924 11174 11188 11210 11291 11312 
CMPN = 07 11661 
CMPNI = 0761 54 11373 = 11451 
PUM 1 95944 
54794 
114804 
55044 11480 11529 
801 8013 8014 80164 
810 81054 
81 616? 8130 81324 
81 8174 8175 81774 
8357 8358 
thi 8726 87284 
140244 14029 
1<eeee 14044 
1935 13207 13284 138354 
152 7153 7155 
7219 7 72224 
7347 7 73504 
7549 75514 
7743 77 77464 
7931 7932 79344 
111734 
6765 6766 6767 6768 67704 
7065 7066 70684 
75 75 
7253 72554 
7622 7625 76254 
7875 7876 
11422 114284 
11532 =115 
ps 6391 6421* 6422 





53734 6108 6109 6148 6484 6652 12007 12013 13336 13439 14135 14280 14289 
14291 42935 14 14296 14361 14362 143635 14364 14365 14366 14367 14368 
14369 14370 14371 14372 14373 14374 £14375 14376 14377 14378 14379 14381 £14382 
143835 14 4385 14386 14387 14388 14389 14390 14391 14393 
CVTLN = 076057 54694 
CVTLNI= 076157 55014 11428 
CVTLP = 076077 54844 
CVTLPI= 076177 55094 11538 
CVTNL = 076053 54654 
CVTNLI= 076153 54974 11431 
TNP = 076055 54674 
CVTNPI= 076155 54994 11441 
CVTPL = 0760 : 54804 
CVTPLI= 07617 55054 11541 
CVTPN = 0760 54664 
CVTPNI= 076154 54984 11444 
C.DSC 1 11394 11404 11491 11492 11495 11500 11520 116354 
Ci 040074 113944 11664 
C 040116 114044 11664 
C 040452 114914 11664 
C4 040454 114924 11664 


F 3 
CEOKC=E POP 11/70 CPU EXERCISER MACY1 30A(1052)__12-MAR-BO 11:30. PAGE 48-4 
CEQKCE.P11 == 12-MAR~80 11: CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0237 
C5 40506 115054 11664 
CE 4054 11520" 11664 
¢ 74 11500# 11664 
0 1300 ese 11671 
DBING7 922214 # 8859* 8860 8864" 8865 8866 8870" 8877 8878+ 8885* 8887  8888* 
08] 1400 8715* 8719* 8724 8730" 8738* 8745* 8749x 8753 
DDATA B604# 8608 8610s 8614 8618 G19 = BEZ2* B25 BEZB* B35" B42" 8643 BEAE® 
DDATAB 02137 8670* 8671* 8676+ 8679  8683* 8684 8688 86934 
DECBI 01 7138 7139 71418 
DECBIA 0131 7190 «7191719 
DECBe 015774 7401 7402 7% 
DECBS 014 7605 76078 
DECBGA 015 7774 «= 77757776 7778H 
DEC? 01 7950 7951 7953# 
DECDAT 03 11338 113434 
BECO 011354 6791 6792 6793 679%  6796# 
DEC 124 6988  6990# 
DECIA 01 7086 7088 
DECe 01532 7313 7314 = 7316# 
DECS §—- 014242 7490 7491 7492 7494M 
DEC 919014 7671 7672 «= 76748 
DEC 15676 7840 7841 784 
DEVICE 001646 5946H 
DEVIND 901630 5946# 11967* 11968* 11969* 11973 11975" 11976* 11977 
DF 1 5 5951 5956 5961 14306# 
DF 10 0 5986 143314 
DF 11 4 5991 6021 14336# 
DF 12 5996 © 6001. 14341 
OF 14 7146 6006 14350# 
DFI6 ©: 067213 6016 143534 
DF4 53 5966 5976 143198 
DF5 5971 143228 
DH1 5664 5949  14305A 
DH10 066551 5984 14330# 
DHI} 066705 5989 6019 143354 
DHT 5994 143408 
DHT 5 5999 14345# 
DH14 7114 6004 143474 
DHI6 0671 6014 143528 
DHE 57 5954 14310# 
DHS 06606 5959 143148 
DHA 175 5964 143184 
DHS «066317 5969 143218 
DHE. 966452 5974 6025 143264 
DISPLA= 177570 5373# 6055" 66B6* 6696* 6740" 6852" 6970" 7089* 7236" 7334s 7451" 7531" 7608 


7688* 7800* 7902* 7987+  8106* 8222*  83359% 8425* Sate 8549*  8601* 58* 8698+ 
8759* 8787* 8821* 8945* 9032+ 91335* 9195" 9247" 928 
9617* 9773* 9858* 9906*  9945* 10000* 

* 10504* 10540* 10596* 10652* 10721* 


10401* 10417* 10427 11126* 11145" 11685" 11762* 


DIVP = Or e0re 54824 

DIVPI = 076175 55074 11512 
DIVO oa 101514 

Divi 31174 102334 10246 
DOCIS 0367 11142) 111444 


SEQ 0238 


3 
PAGE 48-5 


CROSS REFERENCE TABLE ~~ USER SYMBOLS 


G 
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rt 3 
5955 
5960 
5970 
5975 
116984 





SSQVARSE 722 Sees BSR GRD No Ne pa tain SAR SRA AMM 
rxX Sees YXLRL Sr Sr ANA STANT B3335 S55 SN mMSSsa 
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H 3 
CEQKC-E PDP 11/70 CPU amet SER MACY11 yo hig t 12-MAR-80 11:30 PAGE 48-6 


CEQKCE .P11 12 11:27 REFERENCE TABLE -- USER SYMBOLS SEG 0239 

9237 9238 92414 

5948 14 

5985 = «14 

5 14 

599 143394 

208 14 

600 Qi; 143464 

oe «1G3So8 

595 123098 

6024 143574 

5 egiae 

596 143174 

5 143204 

59 143254 
122494 
11115 116844 
10766 104264 

643 64434 
11808 12232A 
11871 11874 122314 

$308 143584 
122504 
11926 119594 12008 12147 

6 6665 8943 9382 1041 10495 11880 12250 142224 
5 1S. 13033* 13034* 13396* 13399% 13400* 13401* 134135* 13414% 13415* 13416" 13417* 


usyy 
Seaee 


6124* 6125* 6283*  6284*  6366* 6522* 6547* 6550*  6556*  6576* 6604* 6663 
8902 8903 9294* 0404* 10415» 





8901* * 8943* 294 9295* 9338* 9382+ 93835* 9384+  93585* 1 
Hp 10456* 10495* 10496* 10497* 10498* 11870* 11871* 11880* 12250* 151635* 135760* 
12109 12199 122054 
59464 
11899 11901 11932 119384 12207 
Pe a 11061 11106 13695 135717# 
11387 3=©11391 §=8©11400 11419 11429 11432 11445 11445 11449 11455 114953 11505 11507 
11510 3=6.11514 = -11530) 11539 = 11542) -«116374 
113874 11666 

E10 0446 114894 11666 

E11 0464 114964 11667 

el¢ 04 114974 11667 

E1 pees 115144 11667 

E14 05 115104 11667 

E15 040564 115304 11667 

E1¢ etieey, 115394 11667 

E1 04061 115424 11667 

E18 04 1143524 11667 

ES 04 113914 11666 

E 040110 114004 11666 

E4 04015 114194 11666 

ES or 44 11429% 11666 

E6 0236 114434 11666 

E7 pers rt: 114454 11666 

E8 040252 114494 11666 





[2 
CEQKC=E PDP 11/70 ae MACY11 30A(1052) 12-MAR-80 11:30 PAGE 48-7 
CEQKCE .P11 12-MAR 11:2 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0240 
E9 040 114534 11666 
F 041276 11573 116404 11671 
FACTOR 001604 59464 6687* 6697* 7690 7801* 7904 8342 8343 8606 8662 8771 8772 8776 
8777 he 8848 8902 9023 9033 9041 9057 9082 9119 9286* 9395 9401 
9412 18* 10001* 10303 10322 10428* 107235* 11127* 11153 11157 11159 11348 
1336 14 11460 11462 11686* 11909 11917* 13854 
FLD20 = 1328 13 $ 1376 
FLTADD 342 107 1077 10776 10806 10891 10931 10934 10964 110724 
FLT DBL 10885 1 
Oeee 11024 110584 
10 10746 10755 10765 10768 10818 10826 10834 10867 10894 10904 10913 10923 
10926 10976 10984 10992 11025 110474 
59464 10895* 10947 10977* 11008 11026* 14355 
59464 10935* 10998* 11029* 14355 
10727 136744 
10791 10814 10839 10852 10874 10949 10972 10997 11010 11032 110714 
13313 13632 8137624 
11303 113064 
119) 11 
11324 113274 
11226 §=112294 
54194 6292 10724 
59464 6687*  6697* 7801* 8421 8788* 9286*  9618* 10001* 10428* 107235* 11127* 11902 
59464 6206* 11912 
04 11392. 11399 Ss: 11405 S—-11409) 11414 = 11420-11446 ‘11454 Ss «11497 Ss 11515: 11525)—Ss«115317 «1116359 
Fl 040070 113924 11668 
F10 pee ss 114954 11668 
F11 04051 115074 11669 
ar ot S494 115134 11669 
FT 040554 115254 11669 
F14 040566 115314 11669 
Fé or 113984 11668 
F 1 114054 11668 
4 4 114094 11668 
F5 142 114144 11668 
rg 0154 114204 11668 
F Bese 114464 11668 
F8 040262 114544 11668 
F9 56 114934 11668 
GE TMAP 2 12338 12420 12641 12762 13016 13784 139244 
GIVEMA 063274 12639 §=6©12675 =12760)§=—12796)§=69©13010 §813045 139854 
GNS = teteee 5512 6108 6109 6148 6157 6158 6160 6220 6221 6222 6225 6227 6484 
1o3ee 6508 6510 6587 6589 6652 12007 12013 12286 13336 13761 13762 13765 
GSTST 012170 69344 
HALT? 032166 104024 
HIADRS= 177742 537 13894 14112 
HIMASK 041 ¢$ 1146 11470 §=11471 116164 
HITMIS= 1 e 3734 
HT = 11 53 13439 
INCB1 12746 7107 7108 71104 
I ae 14070 7436 7437 7438 74414 
I 144 7563 75654 
INCB6 015 7717 77198 
tee 5 015 7768 7769 77714 
INCB 016240 7944 5 79474 
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CEQKC=E PDP 11/70 CPU EXERCISER MACYI1 30A(1052)_12-MAR-BO 11:30 PAGE 48-8 
CEQKCE.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0241 
INCO 6801 6802 6803  6805# 
INC] $030 «9081 «908370 3aa 
INC3 7509 751i" 
INC4 7266 7267 72698 
INCG 7656 7657 «Ss 7658 «= 7660 
INC 7892 7894 
INS TBL 6151 6138 61534 
ICMON 11885, 11948 12148 
1OTVEC= 53734 6271* 9134 9147" 9197* 9198« 9244"  9245* 10379* 10399 
10wc 59464 11925* 11958* 12042 
JOP) 8954 8955 8956 8958e 
MP3 8974 89784 
IMPS 8990 89944 
JMP5 9008, 9012" 
3 air 
JSR1 90334 
JSR3 9043 90574 
JSR4 9069 90824 
J 9091 91054 
JSR 9109 9119" 
KB110M 59464 6382* 6433* 6490 
KBI1E 12246" 6078 6089 6096 6583s 638B* 64276430" 6434 64BB 6496 93BB NHB 
KBITEM 001553 9464 
KDPARO= 1 53734 10586 
KDPARI= 1 53734 
KDPAR2= 17 53734 

17 53734 
KDPARG= 17 53734 
KDPARS= 17 53734 
KDPARG= 172574 53734 
KDPDRO= 179300 3334 10578 
KDPORI =. 179352 23754 
KDPORG= 170524 537 
KDPDR3= 1 537 
KDPDR4= 1 53 
KDPDRG= 17 ed 
KDPOR?= 1? 537 
KERSTK= 001 53 6166 6244 9372 12220 12255 
KIPARO= 172340 93734 10385 11851* 12209 12217 15760 13844 14153 14182 
KIPARI= 1 25754 11852* 12210 

1 93754 11855 12211 
KIPAR3= 17 é 11834* 12212 
KIPARG= 17235 13gg5 10599 11855= 11836 12103+ 12189 12191* 12193 12203* 12209 12210 1221112212 

* 

KIPARS= 172352 e393" 11836" 11837* 12103 12189. 12193 
IPAR6= 1 53734 141146 14117" 141298 
KIPAR7= 172356 53734 11838* 11852 11866 13760 
KI 17 5373# 6408" 6409 6411" 10575 11822 
KIPDRI= 172302 95758 11825 
KIPORG= 172504 53734 11824* 
KIPDR3= 17 5373# 11825 


CEQKC-E PDP 11 
CEQKCE .P11 
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MSW 
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SUS 


CEPR rere 
BNEISS 


44 CPU pxEACESER MACY1T1 


weed eed eed ed 
a 
FAS 
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~— 
law 


meek ed ond td 2 — aed ed 
eed ed aed ed wd 3 oe 


11246 
6458 
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12-MAR-80 


Kk 3 
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YMBOL S 


CROSS REFERENCE TABLE -- USER S 


11826* 
14118* 


141934 


11418 


12274 
6648 


11914 
13148* 


14055 


12868 
12962 


11767* 
11765* 


12286 


6657# 


13149 


141484 


12883 12898 
12978 12993 


13160 
11766 


13151* 13153* 13154 


13156* 


13449 


SEQ 0242 
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11: YMBOLS 





CEQKCE.P11 12-MAR CROSS REFERENCE TABLE -- USER S SEQ 0243 
L307 = 076067 are" 11183 11221 11231 11236 11252 11266 11271 11333 11402 11407 11412 11508 
MAINT = 177750 53 6392 12264* 12276 
MAPEND 0625 1 ae 138154 
MAPHO = 1702C 5 10710 
17020 5 6393 
= 1 d2C 5 
170 53 
170529 33 
170, ie 
17C 33 
= 170¢ 53734 
MAPH1 = 170206 53734 10708* 
MAPH10= 170242 53734 
MAPH11= 17( 46 53734 
MAPHI¢= 170 53734 
MAPH13= 170256 53734 
MAPH14= 17026 53734 
MAPH15= 170266 53734 
MAPHG= 170, 53734 
MAPH17= 170276 53734 
= 170212 53734 10706 
170302 53734 
1= 170306€ 53734 
g- 150316 3358 
170 53734 
S= 170 53734 
= 170 53 
= 1 53734 
= 1 1g 53734 
1 53734 
170346 3734 
170352 53734 
170356 53734 
170362 53734 
170366 53734 
170372 53734 
= 170376 53734 
MAPH4 = 170222 53734 
MAPHS = 1 53734 
MAPH6 = 1 53734 
MAPH7 = 1 3 
MAPLO = 170 53734 10655 10696 10709* 13809 13960 
MAPLOO= 1 537 
MAPLO1= 170204 53734 
MAPLOe= 1 10 53734 
MAPLO3= 170214 53734 
MAPLO4= 1 53734 
MAPLOS= 1702 4 53734 
MAPLO6= 1 53734 
MAPLO7= 170234 53734 
MAPL1 = 170204 53734 10707* 
MAPL10= 170240 53734 
MAPL11= 170244 53734 


m3 
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CEQKC~E PDP 
E.P11 


p 


—_ _ 





53734 
53734 10705* 


leet tee ee ee ee ee ee ee ee ee ee ee ee ee ee 


734 
59464 6257* 6258* 13955 13958* 13987* 
10654 10698 107034 
9874 98824 





4934 
3434 
54074 
402H 5946 
54114 5946 
400# 5946 
54044 5946 
54124 5946 
54084 
54104 5946 
94064 5 
13095 131124 
54094 
54034 5946 
S946H 6341 
S946H 6345 
59464 6349 
54214 6339 6365 11782 
MBTPSW= 000 54144 5946 
MBTSET 043226 11772 §=6©11774 = 117824 
MBTSRV 054050 11793 130834 


N 3 
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CEQKCE .P11 12-MAR- CROSS REFERENCE TABLE =~ USER S SEQ 0245 






MBTST = 160112 54054 5946 
MBTTBL 356 tone 337 9537 6361* 6362* 6363 11790* 11791* 11792* 11793" 11794* 11795* 13086 
13091* 15123 13137* 14268 
MBTVEC= 000774 54134 5946 
160102 133 1# 5946 


MBTWC = 
MBT1 


6462 
13760* 13892 13898* 14109 14123* 14124 14130 14131* 


4O# 
MHOL 13040 3 130534 
MON 594 6246* 9472 10369 10511 10546 10597 11788 =%11869* 119060 12014 12059 £12091 
12118 12145 12162 12205 12242* 13837 13881 14115 14148 14174 
MARO = 177572 53734 14196 14202* 
MRI = 177574 53734 | 
MARZ = 177576 53734 14197 
MARS = 172516 53734 10653 11775 122335* 12334 12416 12636 12672 12757 12793 13801 
MAVEC = 50 53754 6683*  6684* 103565* 103598* 10605 10606 10609* 10610* 10646* 10647* 
MOVB1 01 8236 8237 8258 8239 82424 
MOVC gt 545354 11187 11235 11311 
MOVCI = are. 54854 11206 11329 
037106 11178 § 111824 
MOVER 74 11257 =112614 
MOVRC = 076031 54544 11270 
MOVRC I= 4} 31 54864 11262 
a ir 
MOVTCI= 0761 35 54874 11281 11286 
MOVO 16416 7991 79934 
a an 
MOV7 Oe see 8716 87184 
MPI Hee: 103614 
mere 037326 yee 12276 §=66 142524 
meet ¢ lee 13304 13332 13518 142704 
3 
MSG1 23 14274 142874 
MSG1 75 14275 9142884 
MSG1 761 13340 142894 
MSG1 : 74 13347 142904 
MSG14 13431 142914 
MSG15 ; 4 14278 142924 
mele 13365 142934 
MSG1 5 6 13371 142944 
MS 6 142814 
5446 12281 142954 
5546 14272) §=614275 = 14276 )S— 14277 = 142964 
MS § : 13387 142978 
MS 576 13392 86142984 
MSG24 5605 14279 = 14299# 
MSG25 Reet $039 143004 
MSG 2 13197 = 142824 
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1 
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1 
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3508 
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6 
43974 
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42854 
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NLS 


BARA 
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Seeks 
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a 


ROSS REFERENCE TABLE -- USE 


12-MAR-80 


052) 

143904 
13157* 13459 
11490 
13038 13103 
13041 13101 
71344 

741 

775 

79724 

681 68144 
708 

75004 

7 76384 

5a 

6697 7801 
6250* 11835 
119394 

13439 14047* 
14086 | 

11954* 12056 
11953* 12017 
116294 

11949* 12016 
11526 116474 
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8788 9286 9618 10001 10428 10723 
11845 11859 11950 12203 12208* 12258* 
14065 
12065* 

12055 12064* 12097 

12054 12063* 12093 


111 
122 


2 
4 


7 
1* 


12225 


SEQ 0246 
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MERC ASER MACY11 
CEQKCE .P11 12 11: CROSS REFERENCE TABLE -- USER S SEQ 0247 
Sale reey 59464 6483* 6640 9396 107246 11132 11688 (111711 #11765 11771 =611782 
L 
PACDAT 74 1145 114594 
PACKE 11485 917 11503 
PAR 166 10541 105 
PA 1574 zane i * 13041 13061 13097* 13099* 13101 13119 13210* 13213 13285 135297" 13403 
13803* 13810* 13813* 13851* 
PA2116 001576 1asbe 13037* 13038 135062 135098* 13100* 13103 13120 13211* 15298* 13804" 13811* 13814* 
PDRTBL eed 10506 10575# 
PERET 141244 
Ogee 13035 1340 137978 
PIRQ = 1 if; 53734 1029 10316 10317* 
PIRQVE= V8 537354 10299* 10300* 10302* 10303* 10307* 10355* 10336* 
PIRQO 031436 102934 
PKM = 54324 
PLKCSB= 172542 53834 
PLKCSR= 172540 53824 
PLKVEC= Oeeane 53844 
aM 00 61774 6203* 6205 6248 12259 
= 000000 53734 
PRI = 0 53734 
one = 100 53734 9963 9971 
PR = 140 53734 
PRA = 53734 6276 6278 9136 9154 9988 9994 11817 
PRS = 40 ie 9143 9961 12051 
= 
PR? = 000340 53734 6666 6672 6677 6679 6681 5 9142 9192 9198 9243 9248 9249 
«ta 9281 9291 9384 9916 9918 9924 9944 9977 9982 9989 10255 10300 
10301 10338 10497 11714 4+11716 11740 11766 11794 13779 13928 
PS = 177776 53734 6271* 13760 
PSM = 01 54274 869169 
PSW = 177776 53734 =696126* 6147* 6655* 6664 6685* 934 6948* 69535* 9193" 9 9248* 9254 
9282* 92 9289* 9291* 9319% 9324 9383 9474 9475* 9478 9514 9515* 9574* 
9615* 9907 9916* 9924*  9961* 9967 9977* 9982 9988* * 10009 10013 
10017* 10019 10035 10041 10187 10191 10217 10215 10299 103504* 103357* 10361 10397* 
10415* 10419 10422 10425* 10456 10463 10496 10610 0620 117046 11708* 11735* 11740* 
11757* 11815 11817* 12222* 12253* 12590 12628 12669 12709 12749 12790 12831 12870 
12900 12930 12995 13926 13973* 13994 14005* 14151 14152" 14187* 
PSWC 025464 9472# 
PSWTAB 064516 122 142444 
PUM == 54 9168 9174 9961 9977 9982 9988 9994 
PWRVE C= 4 53 6271* 13757* 
Re 3 ee 6187* 6199 6643 10703 12009 12277 13941 
RDCHR = 10441 13758 137614 
C = 104416 6159 137614 
RDLIN = 104414 13759 137614 
REG = Reeere 54284 9950 9953 1 9982 9994 
1 2236 13367 8613421 142604 
668 66954 
6697 77994 
7801 87864 
8788 92844 
9286 96164 
9618 
10001 104264 
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11: CROSS YMBOL S 


CEQKCE.P17 =:12 REFERENCE TABLE -- USER S SEQ 0248 


0 104 4" 107114 
0 10 11037 4110 ae 
1117 11143 11550 1168 
174 11919 119284 11930 12021 
2 6695 8786 92 9616 9999 10426 10711 11110 11683 #£118984 
045 11957 12024 121864 12194 
010156 66874 
AaB 66954 
11214 66974 
01545 77994 
015 78014 
1760 87864 
87884 
441 92844 
92864 






36 96164 
96184 
70 9999# 
116 100014 
6 104264 
104284 
46 107114 
r4 107234 
14 10726 =111104 
54 111274 
peeges 116834 
350 6482 6669 8944 9470 10414 142094 
032264 104184 
RE SK Ed 13020 13075 13089) = 13135) = -«13158 )=6 13495) 14063 = «141744 
RE 063330 140014 14007 
RESREG= 104422 6436 6465 6480 12295 12348 12372 12426 12446 12490 12515 12545 13021 13049 
Eg 13090 135136 13159 13258 13496 13535 13604 13657 137614 13815 13852 13972 
RESTOR poe? 6435 64804 
RESTPS 06534 140054 
RESTRP 025146 9 
RESVEC= 00001 53734 6111* 6112* 6285* 6286* 6384* 6453* 6482* 8903*  8944* 9400* 9401* 9470* 
10405* 10414* 12051* 12052* 12166* 
RETPC 044 11911* 119404 
RETPSW 063322 139964 14006 
RETRY 043750 118704 12204 
242 59464 12431* 12730* 12772* 
RKCS 236 59464 6527* 6536* 12155* 124635* 12700 12704* 12706 12720 12731* 12737 12744* 12746 
127520 12773* 127 12785* 12787 15388 
RKDA 002244 59464 6526* 12427* 12728* 12770* 
047310 5946 123684 
S 002232 59464 6530 12428 14261 
RKER aoe 34 5 6528 
RR 1520 127053 127124 12742 12783 
RKFUN 46 ay od 12434* 12684* 12685 12690* 12692 12784* 
RKHDA 156 59464 12414* 12427 12728 12770 
RKHSTA 002010 59464 12369* 12370 123575* 12698 12712* 12719* 12722* 12735 12777 12798« 
RKHWC 59464 12430 12729 12771 
RKLOOP 051546 12699 127194 12736 12778 
RKNE WH 59464 12764 12766* 12769 
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rx 
RNTBIN 
ROLB1 
ROLBS 
oe 
ROLO 
ROL 1 
ROL 1A 
ROL 3 
ROL4 
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ROL 7 
RORB1 
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ROR1 
RORTA 
RORE 
ROR 
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1g72s 
12422 3=612425* 


12653* 
6561 
12665* 
12358* 
12651* 
12349 
12622 


12567* 
12166 


12708* 


12771* 
12435 
12714 


12048 
73744 


70064 


76194 
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12431 12727 


12725* 12741 


12727* 


12061 12297 


67874 


12356* 12582 
13391 


12573* 12574 
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12730 


12748* 


12731 


12374 


12586* 


12625* 


12756* 


12768* 


12448 


12587 


12664* 


12781 


12769* 


12517 


12601 


12789* 


12773 


12611* 


12617 


12624* 


SEQ 0249 
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12495* 
6596* 

12836 

12895 


12811* 


12449* 
12891 


12830* 


12076 
12658 


12340 


12847 


12812 


12822 


12852* 


F 
:30 
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12150* 
12677* 


12343* 


12621 
12609 


12607* 


12856* 
12498* 


12853 


12816* 


12833 


12864 
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12165* 


12361 


12627* 
12649 


12608* 


12886* 
12828* 


12862 


12817 


12839* 


12869* 


12168 


12608 


12635* 


12609* 


14264 
12867* 
12881 


12866* 


12846* 


12880* 


12170 


12662 


12611 


12873 


12892 


12896* 


12849» 


12894 


12197 


12668* 


12647* 


12897* 


12860 


12899* 


12292* 


12648* 


12890 


12293 


12649* 


12903* 


SEQ 0250 


12580 


12654 
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CEQKCE .P11 
RPGWCK 052510 
RPGWTR 0501 
RPS 1 
RPG 11 16 
RP4e 
RPG 
RSBA 1 
RSBAE 
RSCS1 
RSC 4 
RSCS3 002326 
RSDA 2 
RSDRV 
RSDS 
RSER 00 
RSERR 053070 
RSFUN 002200 
RSHANA 002150 
RSHDA 166 
RSHSTA 
RSHwC 0 
RSLOOP 053116 
RSNEWH 002120 
RSNE Wl 116 
RSOLD 
RSPSW 
R 7 
RSRPT 052750 
5 52774 
RSTRY 
RSUNI 1 
RSVEC 
RSWC 14 
RSWCK 174 
RSWIRY 050444 
RS11 1674 
RS41 3144 
RS4e 23152 
$4 304 
RTI1 56 
TTI 422 
RTTIEX 027624 
RTT 7 
RTT2EX 
RTI 76 
RUNTBL 001 
RUNTRA 001750 
SAV = 000224 
SAVPSW 027644 
SAVREG= 104420 
SAVRNH 041 
SAVRNL 041 
SBCB1_ 012 
SBcB3 014552 
SBCB4 014006 
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14265 
12555* 12927* 12961* 
12947 12956 12976 
12916 12960* 12991* 
12940* 12943* 12954 
12958 129635* 12975* 
9985 9995 99984 
12394 12597* 12468 
12540* 12596* 12715* 
9948 9998 
12511 13004 13083 
14053 


12968 12992s 

12987 

12985 12998* 

12989 12994* 

12471* 12534* 

12842* 12936* 

13146 «6.13194 = 13447-13535 


SEQ 0251 
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SEQ 0252 
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CEQKCE .P11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0254 
53734 10631 10634 | 
53734" 1062 
5 11868* 13760* 13787 
5512 6150 6166 13757 14137 
5514 6055" 6056 
5515 $0748 6104 
5517, 6135" 6162 
S3734 1 
11776 11783 «11785 ~=«411787,—«11789-s: 11802" = 12227 
12071s 11100 11107 11109" 
5946e 3s 11786 12258" 12259 12263* 12271 13230 
55034 11494 11504 
7998 © 7999-80014 
8146 8147 81498 
8185 81 81884 
8192 8193 81954 
8369 8370 728 
8412 8413 8415# 
8513 8514 8516# 
8521 8522 8524 
SUBG 8636 
SUB 8731 8732 8733 87354 
SUPSTK= 000700 Raz 49661 89429194 932593319366 «938110103 10400 10469 10489 10493 
SWABO 011714 6847 6848 68649 68514 
SwAB] 013176 7197 7198 72008 
SWAB2 013416 727372750 
SWAB 014052 430 7432# 
SWABE 015400 7781 77834 
SWAB? 015766 786978714 
SWITCH 067330 3507 143614 
SWR = 177570 53734 6055 
SwO = 000001 53734 
swOO = 1 53734 
SWwOl = 2 53734 
= 000004 53734 
S008 = 000010 53734 
SWO4 = 000020 53734 
SwO5 = 000040 53734 
Sw06 = 000100 53734 
= 53734 
= 000400 53734 
= 001000 53734 
Swi = 53738 
SWI0 = 53734 
SW11 = 004 53734 
swig = 010000 53734 11773 
Swi = 020000 53738 
SWwI4 = 06 53734 13163 
Swi5 = 1 53734 
SW2 = 53734 
SW3 = 000010 53734 11784 
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11/70 C¢ 
12-MAR 


PU EXERCISER MACY11 30A(1052) 
11 CROSS REFERENCE TABLE -=- USER S 


12376 
11898 
11955 


9624 


6156* 


72064 


7697 
6757 


12-MAR~-80 
12450 12518 
9625 96284 
9713 97154 
6601*  6621* 
9477 9490* 
70764 
13453* 13458* 
128004 | 
11713" 11714* 
11644 11649 
6219*  6271* 
76994 

6758 67604 


K 4 
11:30 PAGE 48-22 
YMBOL 


6626* 


9493* 


134635* 


11755* 


9252* 


S 


6634* 


9508* 


13469* 


11756* 


9254* 


6636* 


9913* 


13478* 


9260* 


11980 


9915* 


15485* 


9263* 


11983 


9942* 


13492* 


9267* 


11993 


994 3* 


13493 


9272s 


12000* 


9944* 


134984 


9278 


SEQ wes 


12035* 


10301* 


L 4 
CEQKC-E PDP 11/70 CPU MERC SER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 48-23 
CEQKCE .P11 12 11: CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0256 










ms re 
137 Pi He 
i ies 
TST 8¢ 
TST 842354 
TST24 Se 
if ie 
TST 84 
rer ety 
TST31 87594 
TST 87874 
TST 14 
UE oo aoe 
TST 913 
TST 9149 91954 
TST4 68524 
TST40 92474 
TST41 ogeee 
TST4 93874 
TST4 94714 
TST44 95174 
TST4 0 97734 
TsT5 0 69704 
TST50.)0 6l(OO 2 98584 
Led es 249 99454 
Stag Beess 100004 
eres O80703 Oro 
ST 031156 102324 
TST 0 1e05 102514 
TST6 4 70894 
Sree Oticke 198054 
TST 1736 103604 
TST 150 104014 
1STee $36 bee 
ST 105 
rete? 9 105408 
TST70 8 10573 105964 
TST71 106524 
TST 107214 
TST 219? 10880 108834 
TST74 5 111264 
TST75 036714 1114654 
TST76 argc? 116854 
TST 043116 117624 









CEQKC-E PDP 11/70. CPU EXERCISER MACY11 
CEQKCE.P11  12=MAR-BO 11: 
TTOPT = 000400 54234 6300 
TTYCHK 06 11 
TYPDS = 10441 6509 12286 
TYPE = 104400 61 6109 
64 sis 
13217 13819 
13507 13408 
13690-13897 
TYPOC = 104402 e161 650 
13433 137614 
ype = 10¢6be Re 4206 
TYPSi2 05769 eee 18865, 
TYPTIM 12286 13196 
T.END 005 6415 64184 
Ti 005422 6441 
i 005464 6396 63994 
T 005516 6401 6404 
1% 005550 6410 64134 
UBEADR 001776 59464 13013* 
UBEBA = 1 S392# 5946 
UBECC = 170002 s301H 5946 
UBECLR= 170010 53944 5946 
UBECRI= 1 S393" 5946 
UBECR2= 170016 5396" 5946 
UBEDB = 1 53908 3 
UBEERR 053724 13031 130544 
UBEGO = 170014 53954 
ee 
= 
BEY OOTr2e 59464 13011* 
UBESET 043166 11764 117718 
UBE SRV 1 13778 
UBETBL 002340 5 ? 
EEE Ce OOees2 13008 130304 
ees Obe3794 130se 13060 
UBMS «015434 7689 76918 
7761*  7767* 
UBREAK= 177770 54344  6081* 
6120" 122s 
UBRERR 002770 608 
UBRK2 008012 6101 61078 
UBRTBL 6115 6137 
UB? 1426 8691  8704# 
UDPARO= 177660 53734 10587 
UDPAR1= 177662 53734 
ARe= 177664 53734 
UDPARS= 177666 53734 
UDPARG= 1776 53734 
UDPARS= 177672 53734 
UDPAR6= 177674 53734 
UDPAR?= 177676 53734 
UDPDRO= 177620 53734" 10579 


30A(1052) 


11688 


137614 
6148 


64074 
13014* 


6305* 
6311 


( 12-MAR-80 
CROSS REFERENCE TABLE -- USER S 


137614 


13015 


6506 
6316 


13769* 


13022* 


13017 


6321 


13770* 


13050* 


7706* 
7785* 
6086 


6146* 


11:30 


Woo 
MNES WNOWU]— 
MUMIWNWAINOO 
— VN OWNS 


13018 


Mm 4 
PAGE 48-24 
YMBOLS 


and aed eed ond eed ed 
Iw 

TETAS 

fOlOovuinwui 


13070 


13412 


7715* 
77984 


6093 
6470* 


mow & 
COO NGOS — 


13072 


13776 


7721* 
6099* 
10343 


6222 6223 25 
ip AY g 11 g 87 
13164 135195 13197 131 
13250 132535 13255 1325 
137 5 13371 13376 13387 
13493 13494 13507 13508 
137614 14135 
13232 «13234 3=—:13276—S: 13375 
13771* 13772* 13783 13785 
14269 
7729% 7736* 7742* 7749% 
6100 6105 6107*  6116* 


SEQ 0257 


13786 


7755* 
6118* 


N 4 
PDP 11/70 CPU pxency R MACY11 30A(1052) 12-MAR-80 11:30 PAGE 48-25 
-P11 12-MAR~80 11: CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0258 
177622 53 
177624 5 ry 
177 5 
1776 5 
177 53 
in ; 
Ao 5 10371 10584 11845* 11846 11848 11850 
17764 23 11846* 11847* 
177644 5 11848* 11849* 
177646 5 11850* 11851* 
1776 23 10601 * 
17765 53734 
er eR 53734 10371* 
177656 53734 11852* 
177600 oaee 10576 11840* 
177602 53 11841* 
177604 53734 a v4 
177606 53734 11843* 
177019 53734 10602* 
17761 53734 
177614 he 10372* 
177616 53 11844* 
140000 54314 9161 9305 9950 9956 9982 10266 10280 10361 10463 10472 
1652 a3 50" 12041* 12045 12050 





76104 7614* 7621* 7626* 763535* 7641* 7648* 7655*  7662* 7664* 7670" 7676* 7682* 
8044 7906* 7911* 


. 12201* 13202* 13208* 


13201 1 * 13836 13895* 14107* 14108* 
14211* 14224* 14225* 14308 1 


2 
6 14324 14328 14335 





x 14138 141414 

XORO %6 9637 9638 96414 

xOR 9661 9662 9663 9664 9666 9669% 

XOR35 9752 9753 9757 

XOR6 9688 9691 93 9700" 
9686*  9687* 9692* 9694" 9698 97044 9709% 9720« 9722s 
9695*  9696* 9697* 9698  9705# 

XOR 97684 

XXDP 61744 6201 

XXDPC 61754 6196" 6645 

SACO O46" 10732* 10735* 10742" 10744 10753* 10754 10763" 10767* 10771" 10775* 10790* 10805* 
10815 10817* 10825* 10825 10851 10833  10838* 10851* 10865* 10872* 10890* 10893* 10900* 
10902 10911* 10912 10921* 10925 10929» 10933* 10948 10963" 10971* 10975* 10981* 10983 
10989* 10991  10996« 11009" 11085 11030 11047 11058 11072 11077 11088 11090 13746 

$AC1 001464 5946# 10731* 10735 10738 10744* 10748 10754* 10757 10764 10778 10786 10792 10795* 
10796 10804» 10808 10811 10820 10825* 10828 10833« 10835 10841 10847 10853" 10856* 
10857 10864" 10869 10875 10877* 10878 10889 10893 10896 10902* 10906 10912* 10915 
10922* 10936 10944 10950* 10953* 10954 10962* 10966 10969* 10978 10983* 10986 10991* 
10993 10999 11005 11011* 11014* 11015 11022* 11027 11033 11035* 11036 11047* 11058* 
11072. 11076 11089 11090* 

$AC2 001466 S946" 10748» 107.5 10785 10785* 10786* 10787* 10788" 10796 10808» 10817 1082B* 10838 
10844  10846* 10847* 10848* 10849* 10857 10906* 10933 10941 10943" 10944» 10945 10946* 
10954  10966* 10975 10986* 10996 11002 11004* 11005* 11006* 11007* 11015 

$ac3. 001470 59464 10757* 10771 10783 107385 10835* 10844 10846 10915* 10929 10941 10943 10993 


CEQKC-E PDP 11/70 
CEQKCE .P11 


SAC 
SAC 






wis 





ES 





ae 


Lo 


= 
~ 





wap 


$F 
$F 
SF 
SFL 

$FL20 


ee 


“vere 
ot Oe pe 
" 


’ 
+ 
’ 





Beware 11:27 


11004 


18s. 


1 © 
13164 
13635* 


6271 


23 
13429 


13286 
13152* 


6185 
122864 


ike 
121 
131 
12286* 
- 
11908* 
13164* 
1 
1 
13559 
13763 


13762 
13061* 


18165 


13164* 


78 
81 
sper 
271 
71 
64* 
04 
944 


¥11 30A(1052) 


12-MAR-80 11:30 


B 5 
PAGE 48-26 
SYMBOL S 


CROSS REFERENCE TABLE -- USER 


13120* 
13660 


13607 


13119* 


11147 


13203 


13932* 


6642 
13494 
135354 


122864 


13931* 
11151* 


13205 


13963 


12286 13164 13195 13198 13235 
13530 §=6©135758 §=©135759 §=6914031 = 14039 
13164 

13164* 

131644 

13245 13769 13771 

12098 

13962 14343 

12304 12383 12456 12524 13663* 
13237 


13250 
14049 


13682 


13255 


13686 


13259 


13934 


SEQ 0259 


. 2 
PU acts R MACYT1 tg t 12-MAR-80 11:30 PAGE 48-27 


CEQKC~E PDP 11 


470 CPU EXE : 
CEQKCE .P11 12-MAR-B0 11 ROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0260 
$K TNEX 1 137604 
TouT 1 137 
SxT11 $<) * 137604* 
é 141 5 13164 13439 13758 #©413759 
ONUM 1 59464 6168+ 11146 11150* 11166 12305 12457 #«£«®+913663* 13687 13935 
SLPADR 1 59468 6271* 6687* 6697* 7801* 8788* 9286* 9618* 10001* 10428* 10723* 11127* 13163* 
SLPERR 001 59464 6104* 6271* 6687* 6697* 7801* 8788* 9286* 9618* 10001* 10428* 10723* 11127* 
11148* 11948* 12087 12141* 13054 13055* 13066* 13112 £13113* 13122* 13163* 13164 14125 
14198 14199* 14201* 14203 14212 14213* 14215* 14216 14228 14229* 






14251* 142 
SLSTAD 066 137604 
$LSTBK 6214* 621 6228 6235 137604* 
SMAIL 001214 5924 59314 
SMAINT 001710 12265* 12275* 13224 
SMBADR 001202 59244 
SMBLTH 001212 59284 
SMSGAD 1 5 
SMSGLG 1 59394 
SMSCTY 1214 59324 13164* 
SMTMOU 062232 137604 
SMXCNT 054 131634 
SNULL 001320 5946# 13439 
SNWTST= 000001 66 6740# 68524 6970# 7089 72364 73344 74514 75314 76084 7688"  7800# 
7902# 47987H# 81068 8222 8339% 84234 84904 85494 86014 86584 86984 87594 87874 
14 89454 90324 9135354 91954 92474 92854 93874 94714 95174 9579H 9617# 97734 
98 99454 100004 101014 101504 102324 102514 102924 103424 103604 104014 10417# 
104274 105044 105404 105964 106524 107214 1088354 111264 111454 116854 117624 
SOCNT 057440 135334* 
SOCTVL 1 Waeeee 
SOMODE 057442 135334* 
SOVER 131634 
SPAS 1222 59354 
1250 59464 6245* 6647 12286* 13163 13234 
SPASTM 1 59 
1342 137574 
SPWRAD 1330 137574 
SPWRDN 1 6271 137574 
SPWRMG 1324 137574 
SPWRUP 1 137574 
SQUES 14 59464 13164 13758 13759 
SRAND 131165 912303 12382 12455 125235 136634 13677 15933 
SROCHR 1352 137584 13761 
SRDDE C 1524 137594 13761 
SRDLIN 1406 137584 13761 
SRDOCT= eeeee8 13761 
SRDSZ = 1 37584 
SRE GAD 1324 59464 
SREGO 1 59464 10731 10742 10764 10804 10811 10831 10864 10872 10875 +10875 10889 10900 
10922 10962 0969 11022 11030 11031 11033 15726 
001330 ad Hf 4 10753 10763 10805 10815 10825 10865 10890 10911 10921 10963 10971 
1346 59464 
1350 59464 
Oot Sa 59464 10738* 10790 10820* 10851 10869* 10896* 10948 10978" 11009 11027* 14349 14355 
001334 59464 10778* 10792 10841* 108535 10873* 10936* 10950 10999 110117 110351* 14349 14355 
001336 5946# 14125* 14128 14198* 14201 14212* 14215 14228 14231 


D 5 
CEQKC-E PDP 11/70 CPU MERC ESER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 48-28 
CEQKCE .P11 12 11: C 


ROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0261 | 
i 
SREGS 5946" 11693* 12271" 12281* 14031* 14039" 14049* 14081* 14082 14086 
SRE 2 59468 
SREG 59468 
SRE 13536" 13761 
SRTRN 946" 6671 9942 12270 
SSAVPA 14162 14177 
SSAVPS 14151* 14187 
SSAVRE 13761 
SSAVRE 
SSCOPE 9147 9153 9244 131634 
TUP= 00003 6271 84 12286 
$SIZE 061 137604 
S$SIZEX 0621 
TUP = 
SSVLAD 054642 131634 
$SVPC = 000224 
$SWR = 16 43918 5360 5946 6271 96 6740 52 6970 7089 7236 7334 
7531 7608 7902 «7987 «= «8106S s«B222—Sts«éi33 8549 
1 58 8698 +=: 8759-—Ss«B787 1 8945 9032 9133 95 7 9285 9 
9471 9517 9579 ? 9773 9858 45 1 10101 10150 10232 10251 
292 10342 10360 10401 1 10427 10504 10540 10596 10652 10721 3 11126 
11145 11685 11762 12286 13163 13164 
SSWRMK= 000000 13163 
SSWRP 001244 5945" 6183* 11773 11784 11806 11898 11918 11955 11963 11967 12110 12175 
12298 12376 12450 12518 13163 13164 
STESTN 001220 5934" 13164* 
STIMES 001376 5946" 62718 : 6853* 6971" 7800" 8787* 9285* 9617" 10000* 10427* 10721* 
10722* 10884" 11126* 12286* 13163 
$TKB 001312 59464 13758 14027 
$TkS 001310 5946" 6271 74% 13758 
STMPO 001352 5946# 6102* 6523" 6526 6537" 6557* 6560 6564" 6577* 6580 6588 6597" 6605 
6608  _6619* 10316" 10729 10743 10802 10810 10830 10862 10870 10887 10901 10960 
10968 1 11020 11028 11138 11566* 11969 115726 11575 11933 11961* 11965 11970. 
11987 12027 1 12114" 12200* 13675 13690 13722 13896* 14106* 14193" 14209" 14222 
14235 14308 14512 14316 14326 14528 14335 14538 
STMP1 001354 3946" 6103 11139" 11567 11570s 11575* 11576* 11978 11980 11983 11985* 1203512037 
* 
$TMP10 001372 S946" 13026 13093 13057 13085* 13111* 13115 
$TMP11 001374 5946" 13054* 13066 13112* 13122 
STMP2 001356 5 10730 10751 10760 10803 10812 1082210863 11959* 12135 13892" 14124+ 14196» 
14227* 14308 14316 14326 1453 
STMP3 001360 S464 12155 15895" I41lis 14197* 14316 14324 14335 
STMP4 001362 5946" 10737" 10789 10819* 10850 10868* 10888 10909 10918 10961 10970 10980 11021 
138942 14112" 14349 
STMPS 001364 59468 
SIMS 001366 5946# 10777* 10840" 10871* 14349 
$™MP7 001370 59464 
$™N = 000100 43908 5348 66964 67408 68524 69704 7089% 7236# 7334" 74518 7531" 7608e 
? 7e00# 79028 © 79878 «81064 © 8200H « B559H Base BAIN 85498 le 86588 
87598 87878 # 89454 9032" 9133% 9149 91954 92474 9285 9387" 94718 95178 
95 96178 9 98584 99454 100004 101014 10150# 10232# 102514 10292" 103420 
10 104014 104174 104274 10504# 10540# 10573 10596# 10652# 10721# 10880 10883" 11126# 
11145# 11685 11762# 
$T 001316 5 13439" 14072« 
STPFLG 001323 59468 13439 
$T 001314 59468 6298 11691 11694* 11706 11709* 11746* 11758* 12256 12272* 12279 12282* 13439 


E 5 
CEQKC~E PDP ies CPU enn MACY17 30A(1052) 12-MAR-80 11:30 PAGE 48-29 


CEQKCE.P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0262 
14032 14040" 14050 14068* 14070 14085 
STRAP ¢ 6219, 6271 9260-9263 926792729280 137618 
STRP = 137614 137624 137634 
STRPAD 10 1 ogy 
STSTM 001 59 
STSTINM 001252 5946" 6686" 6696" 6740* 6852" 6970" 7089* 72368 73348 7451* 7531* 7608" 7688: 
7902" 7987 8106* 8222* 8339*  8423*  8490*  8549*  8601* 8658* 8698" 8759s 
8787+ B21 8945+ 9OS2s FiSse 9199s 9247" 9285+ 9387s 9471s 9517+ 9579 9617" 
9773s * 9906*  9945* 10000* 10101* 10150" 10232* 10251* 10292* 10342" 10360* 10401s 
10617* 104627* 105046* 10540* 10596* 10652* 10721* 10883* 11126* 11145* 11685* 11762* 11802 
12219 12286 15163* 15164+ 15226 
STTYIN 061514 137589 
STYPBN= seee08 13761 
STYPDS 057444 135344 13761 
TYPE 056410 13439" 13761 
STYPEC 056554 13439" 
TYPEX 30 13439" 
$TYPOC 42 135334 13761 
STYPON 057256 133558 13761 
STYPOS 057216 135334 13761 
SUNIT 001226 59378 
SUNITM 001210 59274 
SXTSTR 054266 131634 
Te= 000000 
SSTMPG 001476 
SSTMP6 001500 9464 
STRP = 137614 13762 13763 
SOFILL 057441 135334 
2 55124 55134 5519 5521# 5523# 55264 5920 5946# 61524 6157 6160" 6220" 62218 
SH 662274 «66271 «= 650BH «= 65B7H «= 6589H «66599 «65BH 6687697 «6707S s«6715 «6723 
6730 38 6749 6759 69 6777 6786 6795 3 35 
2 6850 ? 1 91 6905 6914 6930 6972 6982 6989 6 
7005 7011 7018 25 7033 7040 7048 7053 7061 7067 7075 
71037 7115. 7121~=S 7127S s7133.-S 7140 71477154. 7162s 7169S 7173 
7180 718 #7192 ? 7205 7209 72146 7221 7225 7231 ~# 72 7237-7249 
7254 7261 72 a7 7279 7883 7291 78987308 7315 9 
73 7332 «7335.2 7349=Ss 7353 57 7365. Ss 7373.—i—«7381l.—“‘éié? 7397 74032 
7415 7 7425 7431 «7439-7446 7449074527465 7727478) 7485 7493 
7 7505 7510 7516 7523 £7529 «7532 «7550 7553 7559 7 7572? 
7583075 75 7618 7624 7629 7637 7645 7651 7659 7667 
7673 «= 7679-S's«7683=S «7686S 7698 += 7703'S 7709'—='s7718-~=——7725.Ss7732~—Ss7789 45 7752 
7758 7770 7782 7788 #7796 #7797 7801 7820 7835 7842 
7849 «7857 7 7870 7877 7881 7 7893 7919 7927 7933 7940 
52 79587 7971 78 «= 7985S 7992 8015 3 
805 8077 80 8095 8104 8107 8122 8131 8139 8148 
8155 8162 8168 8176 8187 8194 8199 8214 23 i 45 
52 63 74 8279 8285 8288 8337 8352 8359 8371 8383 
8393 84 8419 24 8458 8470 76 8483 8515 
8523 8528 8531 8537 8542 8547 8577 8580 8586 8593 8599 2 
3 37 8650 8654 73 «8677 5 8717 
8720 8721 8727 8736 8742 8746 8750 8754 8784 8788 8793 
9 8856 i 7 ~—« 887 81 8891 8932 8934s 
2 57 8962 8970 8972 8977 8993 98997 11 9 9113 9140 
9156 9181 9188 9201 9232 9233 9240 9251 9259 9262 9266 9271 9 
9293 9481 9498 9540 9547 9555 9561 9572 9588 3 2 9618 


CEQKC-E PDP 11/70 CPU Toe MACY11 30A(1052) 12-MAR-80 11:30 " PAGE 48-30 
CEQKCE .P11 12-MAR-80 1 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0263 


9627 9640 9651 9654 9668 9682 9699 9702 9714 9723 9727 9734 9740 
9745 9756 9762 9767 9780 9799 9816 9820 9822 9825 9856 98 
9876 9880 9912 9965 9980 9991 1 10023 0046 


1000 1 1 
10142 10171 #1 10220 10249 10264 10278 10364 10378 10403 10410 10423 10428 
10454 10481 10608 10616 10644 10723 11127 11619 116464 116814 120074 12 12257 
122864 12429 12576 12588 12626 12667 12694 12707 12747 12788 13163 # 13164 
13439 8135344 135354 13757 137584 13759 714071 14135 143154 14327# 14342 143548 


-PARSR 063616 6680 11882 12251 13888 141054 14132 


. 


G 5 
CEQKC-E PDP 11/70 CPU EXERC IS R MACY11 30A(1052) 12-MAR-80 11:30 PAGE 49 | 


CEQKCE .P11 2-MAR~ : CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0264 
COMMEN 13554 Ee od 
ENDCOM 1347# 53 
ERROR 53734 85425 6105 9246 10798 1083 10881 10956 11017 11038 11140 11180 11194 11216 11243 
112 112 11297 11318 11340 11378 114246 11439 11457 11484 11534 11549 11936 12086 12144 
12149 " 13059 = 13065) Ss: 13117=Ss-«113121~—Ss« 11389 14127 =14200) §=14214 =14230 
ESCAPE 1449" 
FLTST1 ie 10721 10883 
HLT 54 6708 oct 6724 6731 6739 6750 6760 6770 6778 6787 6796 6814 6823 
2 92 6899 6915 6931 6965 6983 6 
701 019 7026 7 7041 7049 7054 7076 7083 7104 7110 
7116 12 7128 7141 7148 7155 7163 7170 7174 7181 719 
7210 7215 7222 7226 7232 7235 7250 7255 7262 7269 7275 7 7284 7292 7299 
0 7316 7326 7330 7333 7350 7354 7358 7374 7390 7398 
7404 7410 7416 7421 7426 7432 744) 7447 7450 4 7473 7 / 749 7500 
75 7511 7517 7524 7 7551 7554 7560 7565 7573 7579 7584 7591 7595 7601 
7619 7625 7 7646 765 7668 7674 7 7699 7704 
7710 7719 7726 735 7740 7746 775 7759 7765 7771 7778 7783 7 7821 
7826 7836 7843 7850 5 7871 7878 7882 7889 78 7 7934 
1 7 7953 79 7972 7979 79 8016 8024 
805 8070 8078 1 1 8096 8105 8123 8132 8140 8149 8156 8163 8169 
81 8188 8195 8207 8215 8221 8242 8253 82 69 8275 
8353 8 8372 8401 07 8415 8420 9 8467 8471 77 8&4 
8516 8524 8529 8532 8538 8543 8548 8578 8581 8587 85 8616 1 
5 5 8655 74 78 8681 8718 8722 87. 8735 
8745 8747 8751 8755 8805 8815 8857 886 
2 8911 8913 8915 8917 8919 8921 8925 8925 8927 8931 8933 
8935 8958 8978 2 20 9031 & 9079 9102 9110 9114 9128 9148 
9189 91 9 9234 9241 92464 9261 9264 9268 9273 9332 9369 9482 
9504 9527 541 9548 9556 9562 9573 9 13 962 1 9655 9669 9683 
9700 9715 9724 9735 9741 9746 9757 9765 9768 9781 9800 9817 9826 
985 9877 9881 9929 9934 9970 9973 9984 9996 10024 10047 
10067 10091 10124 10743 10172 10196 10221 10250 10265 10279 10311 10318 10357 10384 10596 
ai 10407 y ot > 10440 10470 10490 10535 10569 10617 10642 10700 11743 
MSGB 59 
MSGC 9133 
MSGD 9773 
MSGE 
MSGF 10101 
MSGG 10150 
MSGH 10232 
MSGI 10292 
MSGJ 10342 
MSGK 10504 
MSGL 10540 
MSGM 10596 
MSGN 10652 
MSGO 11762 
MSGP Ue. 
MULT 53 
MYTAGS 5946 
NEWTST ley 
90 
10101 
10883 





H 5§ 
CEQKC-E PDP 11/70 CPU EMEC ASER MACY11 30A(1052) %12-MAR-80 11:30 PAGE 49-1 
CEQKCE .P11 12 11:27 CROSS REFERENCE TABLE -- MACRO NAMES 
40 od 18544 537 135 135 1366 13757 13759 
Rusu iecge 337s 135% 19586 18663 13787 137 
RELOCB 6695 $655 8786 9264 961 10426 10711 11110 11683 
SCOPE 734 95 6696 6740 685 6970 7089 7236 7334 7451 7531 7608 
7 81 822 8339 8490 8549 8601 8658 8698 8759 
1 B94 90 9133 919 247 928 9285 9387 9471 9517 9579 9615 
9906 994 10000 10101 10150 10232 10251 10292 10342 10360 10401 
ee 10506 10540 10596 10652 10711 10721 883 11110 11126 111465 11683 
SETTRA 137614 137 13763 
SETUP 11694 53 6271 
SKIP 16 - 23 6638 6646 6648 6650 9149 10573 10880 
SLASH | # 5 
SPACE 53734 
STARS 12568 53734 5524 5946 6059 6073 6164 6512 6521 65 6553 6555 6575 6603 6686 
6696 6740 ret 6970 7089 7236 7334 7451 7531 7608 7688 7800 7902 7987 8106 
re 8339 842 8490 8549 8658 yee 8759 8787 8821 8945 9032 9133 9195 
924 9285 9387 9471 9517 9579 9617 977 9858 9906 9945 10000 10101 10150 10232 
10251 10292 10342 10360 10401 10417 10627 10504 10540 10596 10652 10721 10 10861 10883 
10957 11019 11041 11046 11053 11057 11064 11070 11126 11145 11685 11762 11769 11780 11796 
11801 11884 11897 11941 11947 12243 12248 12286 12287 12290 12364 12367 12438 12441 12507 
1ecre 12562 12565 Hs Ta 1es8s 1¢500 F444 12905 1605 13000 13003 13079 13082 13139 13145 
13163 13164 13165 13192 1327 13281 13293 13300 13309 13319 13329 13342 13350 13363 #£+13378 
13419 13439 13440 £13446 13500 13506 13533 13534 13535 13536 13537 13553 13610 13628 # £13663 
13664 13672 13699 13716 13757 13758 13759 13760 13761 13764 13768 13789 13796 13818 13834 
13859 13870 13901 13923 13980 13984 13991 13993 13998 14000 14009 14022 14076 14080 14089 
14106 14142 14147 14170 14173 14190 14192 14206 14208 14219 14221 14359 
TRMTRP 137614 
TYPBIN 17904 53734 
TYPDEC 17604 53734 6509 2286 
TYPNAM 15364 43874 53734 
TYPNLM 17274 #£ £53734 
TYPOCS 1oree 53734 6224 6226 6228 
TYPOCT 164 53734 6507 6588 13199 13224 13234 
TYPTXT 15974 53734 1 6109 6148 615 6158 6160 6220 6221 6222 6225 6227 6506 6508 
go) 0 6587 6589 6652 12007 12013 12286 13336 14135 
SSCMIM 59464 
SSESCA 14624 53734 
SENEWT 14164 52004 53734 6740 6852 6970 7089 7236 7334 7451 753 7688 
7800 7902 79 8] 8222 8339 8423 84 8549 8601 8658 8698 8759 8787 8821 
8945 9032 913 9195 9247 9285 9387 9471 9517 9579 9617 9773 9858 9906 9945 
10000 10101 10150 10232 10251 10292 10342 10360 10401 10417 10427 10504 10540 10596 10652 
10721 3 11126 11145 11685 11762 
SSSET 137614 13762 13763 
SSSKIP 14964 53734 £9149 10573 10880 
~EQUAT 1684 43864 
. HEADE 434 43864 5348 
wKT17 3114 
. SETUP 11154 43874 6251 
. SWRHI 854 43864 5360 
. SWRLO 53604 5361 5362 5363 
.SACTI 43324 63878 ‘5524 
.SAPTB 43894 
.SCATC 9148 43864 5512 
.SCMTA 9714 43864 50314 5946 


em ae eS - 


ah 
QKC-E PDP 11/70 CPU EXERCISER MACY11 30A(1052) 12-MAR-80 11:30 PAGE 49-2 
QKCE .P1 1 DoMAR-8O iis? CRO NAMES SEQ 0266 | 


CROSS REFERENCE TABLE -~- MA 


52454 13535 
43874 12286 
dseee 18166 
43874 1 
5 1 
& 1 

1 

1 


<38Be 





- ABS. 071367 000 


ERRORS DETECTED: 0 


CEQKCE .BIN, CEQKCE.LST/CRF=CEQKCE.SML.CEQKCE.P11 
RUN-TIME: 77 11 SECONDS 

RUN-TIME RATIO: 1070/205=5.2 

CORE USED: 33K (65 PAGES) 


